![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
VB:文本框中输入一个字符,判断输入的是属于什么字符
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
可以按此方法扩充字符类型
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
可以按此方法扩充字符类型
更多追问追答
追问
现在题目是一个字符,如果是一串字符的话要怎么做?
追答
一串字符都是一个类型么。。。还是说要把每个字符的类型分别列出来呢?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询