【急】VB显示纯小数的时候不显示零，怎么解决？

'显示多位小数：

Private Sub Command1_Click()
Dim A As Double, x As Integer, y As Integer, w As String
x = Len(Text1.Text)
y = InStr(1, Text1.Text, ".", 1)
x = x - y
For i = 1 To x
w = w + "#"
Next i
w = "#0." & w
A = Val(Text1.Text)
Label1.Caption = Format(A, w)
End Sub

我的理解你的问题是不是在text控件中输入".123213"，如何显示为"0.123213"

建议设个双精变量，将数值先给Double变量，然后再将变量格式化。

示例如下：（窗体中有cmdCommand1和txtText1控件）
Private Sub cmdCommand1_Click()
Dim d As Double
d = Val(txtText1.Text)
MsgBox Format(d, "#0.##########")
End Sub

通过测试（VB6+SP6），可以达到你的要求。当然，这个例子也不完美，如果小数位多于#的位数，会四舍五入。

formate格式化纯小数
Format(Text1.Text, "0.00")