vb.net 四舍五入方法

Module Module1    Sub Main()        Dim d1, d2, d3 As Double        d1 = 1.234        d2 = 1.345        d3 = 1.456        '-----------------------四舍六入-----------------------------               Console.Write("Result of Round(" & d1 & ") is : ")        Console.WriteLine(Math.Round(d1, 2))        Console.Write("Result of Round(" & d2 & ") is : ")        Console.WriteLine(Math.Round(d2, 2))        Console.Write("Result of Round(" & d3 & ") is : ")        Console.WriteLine(Math.Round(d3, 2))        '----------------------四舍五入------------------------------           Console.Write("Result of Format(" & d1 & ") is : ")        Console.WriteLine(d1.ToString("0.00"))        Console.Write("Result of Format(" & d2 & ") is : ")        Console.WriteLine(d2.ToString("0.00"))        Console.Write("Result of Format(" & d3 & ") is : ")        Console.WriteLine(d3.ToString("0.00"))        '-----------------------去尾-----------------------------                Console.Write("Result of Floor(" & d1 & ") is : ")        Console.WriteLine(Math.Floor(d1 * 100) / 100)        Console.Write("Result of Floor(" & d2 & ") is : ")        Console.WriteLine(Math.Floor(d2 * 100) / 100)        Console.Write("Result of Floor(" & d3 & ") is : ")        Console.WriteLine(Math.Floor(d3 * 100) / 100)        '----------------------进一------------------------------                Console.Write("Result of Ceiling(" & d1 & ") is : ")        Console.WriteLine(Math.Ceiling(d1 * 100) / 100)        Console.Write("Result of Ceiling(" & d2 & ") is : ")        Console.WriteLine(Math.Ceiling(d2 * 100) / 100)        Console.Write("Result of Ceiling(" & d3 & ") is : ")        Console.WriteLine(Math.Ceiling(d3 * 100) / 100)        Console.Read()    End SubEnd Module

Module Module1
Sub Main()
Dim d1, d2, d3 As Double
d1 = 1.234
d2 = 1.345
d3 = 1.456
'-----------------------四舍六入-----------------------------
Console.Write("Result of Round(" & d1 & ") is : ")
Console.WriteLine(Math.Round(d1, 2))
Console.Write("Result of Round(" & d2 & ") is : ")
Console.WriteLine(Math.Round(d2, 2))
Console.Write("Result of Round(" & d3 & ") is : ")
Console.WriteLine(Math.Round(d3, 2))
'----------------------四舍五入------------------------------
Console.Write("Result of Format(" & d1 & ") is : ")
Console.WriteLine(d1.ToString("0.00"))
Console.Write("Result of Format(" & d2 & ") is : ")
Console.WriteLine(d2.ToString("0.00"))
Console.Write("Result of Format(" & d3 & ") is : ")
Console.WriteLine(d3.ToString("0.00"))
'-----------------------去尾-----------------------------
Console.Write("Result of Floor(" & d1 & ") is : ")
Console.WriteLine(Math.Floor(d1 * 100) / 100)
Console.Write("Result of Floor(" & d2 & ") is : ")
Console.WriteLine(Math.Floor(d2 * 100) / 100)
Console.Write("Result of Floor(" & d3 & ") is : ")
Console.WriteLine(Math.Floor(d3 * 100) / 100)
'----------------------进一------------------------------
Console.Write("Result of Ceiling(" & d1 & ") is : ")
Console.WriteLine(Math.Ceiling(d1 * 100) / 100)
Console.Write("Result of Ceiling(" & d2 & ") is : ")
Console.WriteLine(Math.Ceiling(d2 * 100) / 100)
Console.Write("Result of Ceiling(" & d3 & ") is : ")
Console.WriteLine(Math.Ceiling(d3 * 100) / 100)
Console.Read()
End Sub
End Module