VB用Format 函数来实现。
成都创新互联公司自成立以来，一直致力于为企业提供从网站策划、网站设计、网站制作、成都网站设计、电子商务、网站推广、网站优化到为企业提供个性化软件开发等基于互联网的全面整合营销服务。公司拥有丰富的网站建设和互联网应用系统开发管理经验、成熟的应用系统解决方案、优秀的网站开发工程师团队及专业的网站设计师团队。
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Private Sub Command3_Click()
Print Format(5 / 256, "#.##")
End Sub
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位
private sub text1_change()
text1.text=format(val(text1.text),"0.00")
end sub
VB用Format 函数即可实现。
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#：表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 要显示多位，只需要设置数字位数即可，例如：
Print format(3.14159262654321,”#.#######”)
显示：3.1415926
1、打开VB6.0软件，新建一个标准exe工程；
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")
