VB:文本框中输入一个字符,判断输入的是属于什么字符

Question

如题所述

Answer 1

private sub text1_change()
dim s$
s=text1.text
select case s
case is>=asc("a") and is<=asc("z"):msgbox "小写字母"
case is>=asc("A") and is<=asc("Z"):msgbox "大写字母"
case is>=asc("0") and is<=asc("9"): msgbox "数字"
case else:msgbox "其他字符"
end select
end sub

可以按此方法扩充字符类型追问

现在题目是一个字符，如果是一串字符的话要怎么做？

追答

一串字符都是一个类型么。。。还是说要把每个字符的类型分别列出来呢？

追问

都是一个类型的，比如输入22

追答

那就把s=text1.text这句改成
s=left(text1.text,1)