参考 VB语言
Dim input
input = "31" 'inputbox("请输入一个字符:")
if input>="A" And input<="Z" Or input>="a" And input<="z" then
msgbox(input& "是字母")
else
if input>="0" And input<="9" then
msgbox(input& "是数字")
else
msgbox(input& "不是字母,也不是数字")
end if
end if