[Løst]Begrense antall decimaler (VB.NET)

[norbat]

Dim rad, kolonne As Integer
       Dim ut As String
       For rad = 1 To 10
           ut = ut & vbTab & Str(rad) & ".."
       Next rad
       ListBox1.Items.Add(ut)
       For rad = 1 To 10
           ut = Str(rad) & ".."
           For kolonne = 1 To 10
               ut = ut & vbTab & Str(rad / kolonne)
           Next kolonne
           ListBox1.Items.Add(ut)
       Next rad

 

Det over skal gi en slags deletabell, dvs. man kan lese fra rad 2 og kolonne 1 at 2/1 er 2. Probl. er at enkelte av tallene i tabellen får fryktelig mange decimaler. Finnes det en grei måte å begense decimalene til 2?

[aadnk]

Du kan bruke System.Math.Round til dette. Legg først til følgende linje i toppen av koden:

 

Imports System.Math

 

Derreter kan du bruke Round slik:

 

       Dim rad, kolonne As Integer
       Dim ut As String

       For rad = 1 To 10
           ut = ut & vbTab & Str(rad) & ".."
       Next rad

       ListBox1.Items.Add(ut)

       For rad = 1 To 10

           ut = Str(rad) & ".."

           For kolonne = 1 To 10
               ut = ut & vbTab & Str(Round(rad / kolonne, 2))
           Next kolonne

           ListBox1.Items.Add(ut)
       Next rad

[norbat]

Helt utrolig

 

En liten opplysnig. Trengte ikke å legge imports System.math i toppen

Skrev bare

For kolonne = 1 To 10
               ut = ut & vbTab & Str(Math.Round(rad / kolonne, 2))
           Next kolonne

Funker utmerket.

 

Tusen takk!