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
可以按此方法扩充字符类型
更多追问追答
追问
现在题目是一个字符，如果是一串字符的话要怎么做？
追答
一串字符都是一个类型么。。。还是说要把每个字符的类型分别列出来呢？
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
