VB编程_如何判断Textbox输入的是数字还是非数字？

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
MsgBox "输入的是数字"
Else
MsgBox "输入的是非数字"
End If
End Sub

判断是否全部为数字字符
例如
Text1.text="121B312A"
则IsNumeric(text1.text)返回为False

sub text1_keypress(keyascii as integer)
if keyascii < 48 or keyascii > 57 then
keyascii = 0
end if
end sub

用IsNumeric
示例
Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "459.95" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

MSDN帮助
IsNumeric 函数

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

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。