'判断第一个字符，如果全判断加一个循环即可。Option Explicit
Private Sub Command1_Click()
Dim n As Long
On Error GoTo Errmsg
n = Asc(UCase(InputBox("输入：", "判断输入类型")))
If n >= 65 And n <= 90 Then MsgBox "字母"
If n >= 48 And n <= 57 Then MsgBox "数字"
If n <= 0 Then MsgBox "中文" '其实就是双字节
Exit Sub
Errmsg:
MsgBox "输入错误"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024