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

答案:4 悬赏:40 手机版

解决时间 2021-11-23 18:14

提问者网友：绫月
2021-11-23 07:49

最佳答案

五星知识达人网友：空山清雨
2021-11-23 08:04

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

全部回答

1楼网友：舍身薄凉客
2021-11-23 09:59

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

2楼网友：不想翻身的咸鱼
2021-11-23 08:33

用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。

3楼网友：北城痞子
2021-11-23 08:13

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息