Dim d As Double
d = Val(Text1.Text)
If Trim(Str(d)) Text1.Text Then
MsgBox "error"
End If
这样如何？
又想了一下这样还是不好，要是输入1.00就当成error了。
Val函数有一套自己处理文本的方法。。这里On Error GoTo也不好用了。
还是要一位一位循环判断是不是0～9和小数点吧。。还要判断小数点个数；还要判断第一位是不是0，如果是0要判断第二位是不是小数点。。。
你可以判断一下啊，用一个messagebox 就可以把！
