Dim i As Integer
Dim ii As Integer
Dim s As String
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字"
Exit Sub
End If
i = InStr(Str(Val(Text1.Text)), ".")
If i = 0 Then
s = "0"
Else
i = Len(Str(Val(Text1.Text))) - i
s = "0."
For ii = 1 To i
s = s & "0"
Next ii
End If
MsgBox Format(12.3, s)
Dim i As Integer
Dim ii As Integer
Dim s As String
i = InStr(Str(Val(Text1.Text)), ".") '根据一个文本框内的示范数字确定小数位
i = Len(Str(Val(Text1.Text))) - i
s = "0."
For ii = 1 To i
s = s & "0"
Next ii
MsgBox Format(12.3, s)