Question

VB 关于判断是否为数字的问题

有一个代码Text1=”123,89,57，77,56，12，不能有中文”，它如同Word中的选择页打印（实际就是），如何判断是否为数字，且数字之间只能用“,”（西文）或“，”（中文）相隔。

Answer 1

VB可用IsNumeric 函数来判断某字符串是否为数。

IsNumeric 函数，返回 Boolean 值，指出表达式的运算结果是否为数。

IsNumeric 函数示例

本示例使用 IsNumeric 函数判断变量的值是否可为数值。

Private Sub Form_Click()
    Dim MyVar, MyCheck
    MyVar = "53"   ' 指定值。
    MyCheck = IsNumeric(MyVar)   ' 返回 True。
    Debug.Print MyCheck
    MyVar = "459.95"   ' 指定值。
    MyCheck = IsNumeric(MyVar)   ' 返回 True。
    Debug.Print MyCheck
    MyVar = "45 Help"   ' 指定值。
    MyCheck = IsNumeric(MyVar)   ' 返回 False。
    Debug.Print MyCheck
End Sub

Answer 2

Private Sub Command1_Click()
Dim s As String
s = "123,456.8"
If IsNumeric(s) Then MsgBox s & "是数字" Else MsgBox s & "不是数字"
End Sub

Answer 3

判断字符的ascii码是否为数字区间
码表如下

Answer 4

ascii码判断

Answer 5

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rmKey As Long
rmKey = KeyAscii
For i = 48 To 57
If KeyAscii = i Then Exit Sub
rmKey = 0
Next
If KeyAscii = 59 Then Exit Sub
KeyAscii =rmKey
End Sub