VB编一个程序

来源：百度知道 编辑：UC知道 时间：2024/05/22 19:21:23
把字符如下分类：
大写字母：A……Z；
小写字母：a……z；
数字：0……9；
其他字符。
求编一个程序，根据上述方法，输入一个字符，能得出该字符类型。
谢谢

Dim Ts As String
Ts = InputBox("请输入一个字符")
If Len(Ts) = 0 Then Exit Sub
Select Case Asc(Ts)
Case 97 To 122
Call MsgBox("小写字母")
Case 65 To 90
Call MsgBox("大写字母")
Case 48 To 57
Call MsgBox("数字")
Case Else
Call MsgBox("其他字符")
End Select