mtwm.net
当前位置:首页 >> vB让数值显示两位小数 >>

vB让数值显示两位小数

【搭建界面】 略 【编写代码】 Private Sub Form_Click() a = Val(InputBox("请输入数字!", "标题任意", "9")) If a < 10 Then Print Format(a, "00") Else Print a End Sub 【代码说明】 单击窗体运行程序 变量a接收输入框输入的数字 如果a<10则显示显示两位数,这里主要是用到format函数 【运行结果】 图片上传不了

x=123.45678label1.caption=round(x*100)/100可实现让label1数字显示x小数点后两位(四舍五入).

需要再定义一个变量,在text1中显示去小数后的内容,这个变量不显示,但在后台进行记录真实的数值进行累加.text这个控件是所见即所得的,是多少就显示多少的.

VB用Format 函数即可实现. Format 函数,返回 Variant (String),

使用format函数即可 text4.text=format(s2/(s1+s2),"0.00%")

假如n=1print Format(n, "#.00") '则输入n=1.00

Int(/5 / 256 * 100 + 1 / 2) / 100 上面方法是根据四舍五入的原则保留两位小数.

TextBox1.Text = Math.Round(2.754, 2) 得到 2.75 TextBox1.Text = Math.Round(2.756, 2) 得到 2.766.0 你把 “Math.”去了就行了

private sub text1_change() text1.text=format(val(text1.text),"0.00") end sub

vba.format(a,"#0.0")'一位小数vba.format(a,"#0.00")'二位小数

网站首页 | 网站地图
All rights reserved Powered by www.mtwm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com