十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用这个函数把
创新互联-专业网站定制、快速模板网站建设、高性价比天桥网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式天桥网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖天桥地区。费用合理售后完善,十年实体公司更值得信赖。
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.
方法如下:
方法一:
保留三位整数:
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
VB用Format 函数即可实现。
Format 函数,返回 Variant (String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#:表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度,则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度,则数值照原样显示。 要显示多位,只需要设置数字位数即可,例如:
Print format(3.14159262654321,”#.#######”)
显示:3.1415926
'这一个题我有答过了。可以看我回答的链接。
'使用Format返回指定的格式
Dim Numd As Double = 66.6666666666
Label1.Text = Format(Numd , "#.#####") '#.# 可自定格式化显示长度。
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位