Module Module1
Public Sub Main()
Dim values() As Double = {43.523, 12.65, 43.565}
For Each value As Double In values
Console.WriteLine("{0} --> {1}", value, Math.Round(value, 2))
Next
Console.ReadLine()
End Sub
End Module
上記のコードは次のようになります
43.523 --> 43.52
12.65 --> 12.65
43.565 --> 43.56
43.565 --> 43.56 ではなく 43.565 --> 43.57 が必要です。しかし、私はまだ他の 43.523 --> 43.52 と 12.65 --> 12.65 をそのまま丸める必要があります。