vb.net Math.Round重载方法全部实例代码每行后面注释

好的，以下是vb.net的Math.Round重载方法全部实例代码，每行后面都有注释：

Module Module1
    Sub Main()
        ' Double 参数的 Math.Round 重载
        Dim d As Double = 123.456789
        Console.WriteLine("原始值：" & d) ' 输出：原始值：123.456789
        Console.WriteLine("保留 0 位小数：" & Math.Round(d, 0)) ' 输出：保留 0 位小数：123
        Console.WriteLine("保留 2 位小数：" & Math.Round(d, 2)) ' 输出：保留 2 位小数：123.46
        Console.WriteLine("保留 4 位小数：" & Math.Round(d, 4)) ' 输出：保留 4 位小数：123.4568

        ' Decimal 参数的 Math.Round 重载
        Dim dec As Decimal = 123.456789
        Console.WriteLine("原始值：" & dec) ' 输出：原始值：123.456789
        Console.WriteLine("保留 0 位小数：" & Math.Round(dec, 0)) ' 输出：保留 0 位小数：123
        Console.WriteLine("保留 2 位小数：" & Math.Round(dec, 2)) ' 输出：保留 2 位小数：123.46
        Console.WriteLine("保留 4 位小数：" & Math.Round(dec, 4)) ' 输出：保留 4 位小数：123.4568

        ' Double 参数和 MidpointRounding.ToEven 的 Math.Round 重载
        Dim d1 As Double = 2.5
        Dim d2 As Double = 3.5
        Console.WriteLine("原始值：" & d1 & "，保留 0 位小数：" & Math.Round(d1, 0, MidpointRounding.ToEven)) ' 输出：原始值：2.5，保留 0 位小数：2
        Console.WriteLine("原始值：" & d2 & "，保留 0 位小数：" & Math.Round(d2, 0, MidpointRounding.ToEven)) ' 输出：原始值：3.5，保留 0 位小数：4

        ' Decimal 参数和 MidpointRounding.AwayFromZero 的 Math.Round 重载
        Dim dec1 As Decimal = 2.5
        Dim dec2 As Decimal = 3.5
        Console.WriteLine("原始值：" & dec1 & "，保留 0 位小数：" & Math.Round(dec1, 0, MidpointRounding.AwayFromZero)) ' 输出：原始值：2.5，保留 0 位小数：3
        Console.WriteLine("原始值：" & dec2 & "，保留 0 位小数：" & Math.Round(dec2, 0, MidpointRounding.AwayFromZero)) ' 输出：原始值：3.5，保留 0 位小数：4

        Console.ReadKey()
    End Sub
End Module

希望能帮到你！