十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、打开VB6.0软件,新建一个标准exe工程;
成都创新互联长期为上千多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为奎文企业提供专业的成都网站设计、网站制作,奎文网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
2、在设计界面上新建一个Command控件;
3、双击Command1控件,进入代码编辑界面,输入代码:
Private Sub Command1_Click()
Dim res As Double
res = Format(1 / 3, "0.000")
Print res;
End Sub
4、运行工程,单击按钮,可以看到数据被保留三位小数;
5、总结,想要保留几位小数,直接设置即可,如想设置保留5位小数,设置如下:
format(1/3,"0.00000")
用这个函数把
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.
Option Explicit
Private Type qx
zs As Long
xs As Single
End Type
Private Sub Command1_Click()
Call xs(100.365)
End Sub
Function xs(a As String)
Dim i As Integer, xx As qx
i = InStr(1, a, ".")
xx.xs = Mid(a, i, Len(a) - i + 1)
xx.zs = Mid(a, 1, i - 1)
Print a + " 整数部分" + CStr(xx.zs) + "小数部分" + CStr(xx.xs)
End Function
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位
保留两位小数的一般方法是四舍五入法。
保留两位小数,看千分位。是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