怎样判断输入的数字是否合法

Question

比如：1＃ 输入0.123  或123 是合法的。
      2＃ 输入0123 就是非法的。
如何实现在TEXT中，只能输入1＃样式的数字，而无法输入2＃样式的数字

Answer 1

VB中使用正则http://blog.csdn.net/vbman2003/archive/2007/10/16/1827135.aspx

Answer 2

符合1的可以用IsNumeric判断，符合2的不知道具体的要求是什么，这样做试试看
IsNumeric判断是否符合1
然后用CDbl强制转换为Double，判断转换前和转换后的字符串是否一样，如果不一样，则说明可能输入了0123这样的数字。

Answer 3

'引用 Microsoft VBScript Regular Expressions 5.5'test方法
Function bTest(ByVal s As String, ByVal p As String) As Boolean
    Dim re As RegExp
    Set re = New RegExp
    re.IgnoreCase = False
    re.Pattern = p
    bTest = re.Test(s)
End Function
Private Sub Command1_Click()
    Dim p As String
    p = "^[^0]\d*$|[1-9]+[.]\d*|[0][.]\d+$"
    If Not bTest(Text6, p) Then
        MsgBox "输入不合法"
    End If
End Sub

Answer 4

引用 Microsoft VBScript Regular Expressions 5.5'test方法
Function bTest(ByVal s As String, ByVal p As String) As Boolean
    Dim re As RegExp
    Set re = New RegExp
    re.IgnoreCase = False
    re.Pattern = p
    bTest = re.Test(s)
End FunctionPrivate Sub Command21_Click()
    Dim p As String
    p = "^[^0]\d*$|^[1-9]+[.]\d*$|^[0][.]\d+$"
    If Not bTest(Text6, p) Then
        MsgBox "输入不合法"
    End If
End Sub

Answer 5

这样的题目要看 具体的字串的形式 然后找到他们各自的特点如楼主的这个题目
1# 的数据2个好象都没发现什么!2# 的非法数据只因为第一个字符串为 "0"这样的话 只需要判断text的第一个字符是否为 "0" 就知道该数据是否违法了要不还可以这样:在text的 keypess 事件中判断 若空 并且输入的keyascii= 48(0的asc 好象是这个吧!) then keyascii = 0这样就可以避免非法字符的出现了 

Answer 6

怎样判断输入的数字是否合法比如：1＃   输入0.123     或123   是合法的。 
            2＃   输入0123   就是非法的。 
如何实现在TEXT中，只能输入1＃样式的数字，而无法输入2＃样式的数字
--------------------------If Len(Cstr(val(Text1.Text))=Len(Trim(Text1.Text)) Then 
   '是合法数字
Else
   '是非法数字
End If
随手写的,你测试一下