Question

VB 判断一个数是字母，还是数字，还是其他字符 求大神

要用select case的 是程序 求大牛帮忙 小弟感激不尽

Answer 1

Private Sub Command1_Click()
Dim x As String
x = InputBox("输入")
Select Case Asc(x)
Case 47 To 59
MsgBox "数字" & x
Case 65 To 90
MsgBox "大写字母" & x
Case 97 To 122
MsgBox "小写字母" & x
Case Else
MsgBox "其他字符" & x
End Select
Print x
End Sub

Answer 2

Private Sub Command1_Click()
x = InputBox("输入")
Select Case x
Case "A" To "Z"
MsgBox "大写字母"
Case "a" To "z"
MsgBox "小写字母"
Case 1 To 32767
MsgBox "数字"
Case Else
MsgBox "其它字符"
End Select
End Sub

Answer 3

isnumeric函数