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 Sub
End 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