可按ASCII码来对比。也可用字符串直接对比。if asc(ch)>=48 and asc(ch)<=57 thenmsgbox "数字"elseif asc(lcase(ch))>=97 and asc(lcase(ch))<=122 thenmsgbox "字母"elsemsgbox "其它"end if判断数字可以用 if isNumeric(ch) then msgbox "是数字"