从品牌网站建设到网络营销策划,从策略到执行的一站式服务
方法如下:
成都创新互联是一家专注于网站设计、成都网站建设与策划设计,太子河网站建设哪家好?成都创新互联做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:太子河等地区。太子河做网站价格咨询:18980820575
方法一:
保留三位整数:
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
用这个函数把
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.
'这一个题我有答过了。可以看我回答的链接。
'使用Format返回指定的格式
Dim Numd As Double = 66.6666666666
Label1.Text = Format(Numd , "#.#####") '#.# 可自定格式化显示长度。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图