Question

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的数前面不多零

Answer 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