扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
用这个函数把
创新互联于2013年成立，先为北京等服务建站，北京等地企业，进行企业商务咨询服务。为北京企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Math.Round 方法 (Decimal, Int32)
将小数值舍入到指定精度。
命名空间： System
程序集： mscorlib（在 mscorlib.dll 中）
语法
Visual Basic（用法）
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
参数
d
类型：System.Decimal
要舍入的小数。
decimals
类型：System.Int32
返回值中的小数位数（精度）。
返回值
类型：System.Decimal
精度等于 decimals，最接近 d 的数字。
Math.Round(3.4666666, 4) 结果是 3.4667.
保留两位小数的一般方法是四舍五入法。
保留两位小数，看千分位。是4或比4小舍去；是5或比5大舍去以后向前一位进1。
如：3.425保留两位小数就是3.43
3.421保留两位小数就是3.42
又如： 3.4263保留两位小数就是3.43
3.4233保留两位小数就是3.42
再如：3.4保留两位小数就是3.40
方法如下：
方法一：
保留三位整数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, "000")
保留三位小数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, ".000")
方法二：
用Format函数，比如通过text输入，转换后在窗体打印：Private Sub Command1_Click()
n = Text1.Text
t = Format(n, "000.###")
Print t
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网