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

发布网友发布时间：2022-04-23 17:20

共5个回答

热心网友时间：2023-10-10 17:06

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

热心网友时间：2023-10-10 17:06

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

热心网友时间：2023-10-10 17:07

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

热心网友时间：2023-10-10 17:07

ascii码判断

热心网友时间：2023-10-10 17:08

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