可按ASCII码来对比。也可用字符串直接对比。if asc(ch)>=48 and asc(ch)<=57 then msgbox "数字"elseif asc(lcase(ch))>=97 and asc(lcase(ch))<=122 then msgbox "字母"else msgbox "其它"end if 判断数字可以用 if isNumeric(ch) then msgbox "是数字"
Print ch;If Asc(ch) >= Asc("A") And Asc(ch) <= Asc("Z") Then MsgBox "这是一个大写字母", , "提示"ElseIf Asc(ch) >= Asc("a") And Asc(ch) <= Asc("z") Then MsgBox "这是一个小写字母", , "提示"ElseIf Asc(ch) >= Asc("0") And Asc(ch) <= Asc("9"...