【请教】如何让label.Caption显示出小于1的数字0呢?

如题
我现在做一个小计算程序,然后我发现用textbox是不显示0.X的,而是直接显示.X
然后由于某些原因我换成了label控件来显示结果,尝试使用过format函数，但是当计算的数字比较大时，比如 5*0.0003 则结果用format就比较麻烦了,而计算程序当然是什么数字都要考虑到的,结果是正确的,但是结果只显示 .XXXX 而不是显示出 0.XXXX,很头疼....
有没有大虾能够教教小弟?
感激不尽啊~~!

z1 = Text17.Text * Label67.Caption / 100
z2 = format(Text17.Text * Label67.Caption / 100,"&&&0&&&")
If z1 > 1 Then
Label90.Caption = z1
Else
If z1 < 1 Then
Label90.Caption = z2
End If
End If
这是代码的一部分.

dim x as long
'x是你的数字
msgbox "0"&x

z1 = Text17.Text * Label67.Caption / 100
z2 = format(Text17.Text * Label67.Caption / 100,"#.###########")
If z1 > 1 Then
Label90.Caption = z1
Else
If z1 < 1 Then
Label90.Caption = z2
End If
End If

回复：3楼
感谢帮忙哈..
不是,我是想让label.caption显示出来不是MSGBOX哦...
有没有办法呢..?

这个简单啊。X计算结果
代码一部分
if x<1
then label1.caption【这是VB6的用法，2005/2008的是text】="0"&x
else label1.caption=x
我为什么这样编？因为我认为那个0是Print时丢掉的，我认为x在内存中还是能进行运算比较的。

最简单的就是这样、也不用管他大于小于1的问题了
label1.caption=format(label1.caption,"#.##########")

if x<1
then label1.caption【这是VB6的用法，2005/2008的是text】="0"&x
else label1.caption=x
恩,好方法.我去试试看

可怕的事情发生了..额...
看代码:
x1 = Abs(C_min - Text18.Text)
x2 = Abs(C_max - Text18.Text)
If C_min < Text18.Text Then
Label65.Caption = 0
Label66.Caption = C_ide
Label67.Caption = Format(x2, "0.#####")
Label48.Caption = 0
Label89.Caption = C_ide
z1 = Text17.Text * Label67.Caption / 100
If z1 < 1 Then
Label90.Caption = "0" & z1
Else
Label90.Caption = z1
End If
End If
然后,计算出的结果是完全正确,0也显示出来了,可是....但是....
我修改了text18里的数字,再次点commandclick,结果没变化...额
烦啊...

加几行代码吧。
Dim s As String: s = Text18.Text
Unload Me
Load Me
Text18 = s
加在开头试试

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

9回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六