Question

VB 文本框中输入一个数据 判断其是数字 字母 还是其他符号

急。。。谢谢！

Answer 1

Private Sub Command1_Click()
Dim a As Integer
a = Asc(Text1.Text)
Debug.Print a

If a >= 49 And a <= 57 Then
Print "数字"
ElseIf (a >= 65 And a <= 90) Or (a >= 97 And a <= 122) Then
Print "字母"
Else
Print "符号"
End If
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
MsgBox "数字!", 65, "Msgbox例子"
ElseIf (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then
MsgBox "字母!", 65, "Msgbox例子"
Else
MsgBox "符号!", 65, "Msgbox例子"
End If
End Sub