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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!