VB 小于1的小数 显示不出来小数点前的0 大哥帮忙

Private Sub Command1_Click()
Text5.Text =(Text1.Text)* (Text2.Text) * (Text3.Text) * (Text4.Text)) / 2
End Sub
不知道怎么修改才能把.x显示成0.x
我想要完整的代码 因为我是刚学VB 不会修改
大于1的数前面不多零

Private Sub Command1_Click()

Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) / 2
if abs(text5)<1 and text5<>0 then
if text5>0 then
text5="0" & trim(text5)
else
text5="-0" & trim(abs(text5))
end if
end if

End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

VB 小于1的小数 显示不出来小数点前的0 大哥帮忙
Private Sub Command1_Click()Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) \/ 2 if abs(text5)<1 and text5<>0 then if text5>0 then text5="0" & trim(text5)else text5="-0" & trim(abs(text5))end if end if En...

VB 小于1的小数 显示不出来小数点前的0
正常情况下是显示不了的,可以用format函数设置显示格式

VB 小于1的小数 显示不出来小数点前的0
Private Sub Command1_Click()Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) \/ 2 if abs(text5)<1 and text5<>0 then if text5>0 then text5="0" & trim(text5)else text5="-0" & trim(abs(text5))end if end if En...

vb中计算的时候小数点前的0不显示怎么回事啊
这是vb6显示小数的方式。自己做一个字符串处理函数吧,如果绝对值小于1,就自动加上一个0。

vb做的计算器 结果大于0小于1的时候不出现0,原因是什么,如何解决_百度...
VB就是这么表示数的,因为大于0小于1时小数点前的0无意义,所以存储时就省掉了这个0.要解决,用format格式化一下

存储过程中为什么会丢失小数点前面的0
oracle数据库中,小数如果小于1,那么查询出来后前面的0是不显示的。所以不过是sql直接取出还是存储过程中取出,显示到页面时,都缺少小数点前的0.解决办法:通过decode函数 如select decode(substr(percent,1,1),'.','0'||percent,percent) percent from point;...

vbs 显示小数点前的0
x=0.123 msgbox formatnumber(x,2,true) '2表示保留2位小数,true表示显示前导0

asp 如何显示小数点前面的0
ASP中显示绝对值小于1的小数,其最前面的零往往不显示。如 response.write(0.12)屏幕上显示.12。为了让其前面的零显示出来,可用FormatNumber函数实现 如 response.write(FormatNumber(0.12,-1,-1))屏幕上显示0.12 附FormatNumber语法 FormatNumber 函数可返回作为数字被格式化的表达式。语法 FormatNumber(...

vb 小数点前面的0
text3.text = format(val(text1.text)+val(text2.text),"0.###")你没试过怎么知道不行? 不就是 0.1234 或 -0.4567 这样的数吗?

ASP中VB的问题,系统默认省略0只显示小数点后数字,要修改为正常显示方式...
使用formatnumber(数字, 2, true)即可把小数点前的0强制显示(即其中的True), 2表示保留2位小数, 详细请看formatnumber函数的帮助

相似回答