请问如何判断文本输入框内的数据是字符还是数字~

Question

请问如何判断文本输入框内的数据是字符还是数字~

Answer 1

IsNumeric 函数
      返回 Boolean 值，指出表达式的运算结果是否为数。语法IsNumeric(expression)必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。说明如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。如果 expression 是日期表达式，则 IsNumeric 返回 False。

Answer 2

數字會在48--57Option ExplicitPrivate Sub Form_KeyPress(KeyAscii As Integer)
 MsgBox KeyAscii
End Sub

Answer 3

2楼的说的很对，用ISNUMBER函数就能搞定。

Answer 4

用keyascill判斷
IsNumeric 函数
都可以的啊！

Answer 5

楼上C用多了？怎么出来宏了？呵呵~~~不过IsNumeric 是没错的。MsgBox IsNumeric(Text1.Text)

Answer 6

MsgBox IsNumeric(trim(Text1.Text))

Answer 7

VB只有用来判断是否数字的函数：IsNumeric
而要判断是否字母就只能用ASC码进行了。如果你只是要判断是否数字可以写成如下格式：
假设变量Txt为String型
则：If IsNumeric(Trim(Txt)) then 　　'Trim(Txt)是用来去除字符串Txt首尾的空格的
       MsgBox "是数字"
    Else
       MsgBox "不是数字　
    End If

Answer 8

这是在输入时判断是字符还是数字的程序,可以将非数字的按键屏蔽.Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Or KeyAscii = 13 Or KeyAscii = 8 Then
Exit Sub
End If
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
Beep '
MsgBox "请输入数字!"
KeyAscii = 0
End If
End Sub