（提示：判断输入字符的 ASC 码值 asc（input）在“a”~”z”、 “A”~”Z”、 “0”~”9” 之间）
Do
x = InputBox("请输入一个字符")
Loop Until Len(x) = 1
Select Case Asc(LCase(x))
Case 97 To 122
MsgBox "字母字符"
Case 48 To 57
MsgBox "数字字符"
Case Else
MsgBox "其他字符"
End Select
x = InputBox("请输入一个字符")
Loop Until Len(x) = 1
Select Case Asc(LCase(x))
Case 97 To 122
MsgBox "字母字符"
Case 48 To 57
MsgBox "数字字符"
Case Else
MsgBox "其他字符"
End Select
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-05-14
分给我我给你发实例代码
