![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
VB编程_如何判断Textbox输入的是数字还是非数字?
4个回答
推荐于2018-03-03
展开全部
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
MsgBox "输入的是数字"
Else
MsgBox "输入的是非数字"
End If
End Sub
If KeyAscii >= 48 And KeyAscii <= 57 Then
MsgBox "输入的是数字"
Else
MsgBox "输入的是非数字"
End If
End Sub
2013-11-07
展开全部
判断是否全部为数字字符
例如
Text1.text="121B312A"
则IsNumeric(text1.text)返回为False
例如
Text1.text="121B312A"
则IsNumeric(text1.text)返回为False
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-07
展开全部
sub text1_keypress(keyascii as integer)
if keyascii < 48 or keyascii > 57 then
keyascii = 0
end if
end sub
if keyascii < 48 or keyascii > 57 then
keyascii = 0
end if
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-07
展开全部
用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。
示例
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。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询