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

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
这是代码的一部分.

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

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

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
加在开头试试