vb判断输入的是数字还是字母？

时间：2021.11.06 发布人：王挞8352
vb判断输入的是数字还是字母？

已解决问题

谷歌王挞8352用户在2021.11.06提交了关于“钱钟书vb判断输入的是数字还是字母？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-27T09:08:43。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，谢了,下次有事儿别忘了找我 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：匿名用户  

PrivateSubForm_Click()

Dimmsg,UserInput

msg="请输入一个字母或0～9之间的数字."

UserIn承操卷独风屋门号蒸叶put=InputBox(msg)‘输入一个字母或数字

IfNotIsNumeric(UserInput)Then‘判断是否是数字

IfLen(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1

Se按包衣作lectCaseAsc(UserInpu色音美教t)‘判断输入字母的ASCII码值

Case60To复候族甚迅和方位零足此90'在60-90之间为大写字母

msg="你输入的是一个大写字母'"

msg=msg&Chr(Asc(UserInput))&"'。"

Case97To122'小写字母

msg="你输入的是一个小写字母六依露差刚报还'"

msg=msg&Chr(Asc(UserInput))&"'。"

C乙坐小施东攻阻古促独aseElse

msg="你没有输入字母或数字."

EndSelect

EndIf

Else

Select秋CaseVal(UserIn笑县衣补put)'将输入的数值型字符响民异周德续尼打转换为数值

Case1,3,5,7,9'如果是奇数

msg=UserInput&"是一个奇数。"

Case0,2,4,6,8'如果是偶数

msg=UserInput&"是一个偶数。"

CaseElse'出界

msg="你输入的数字不在0～9范围内"

EndSelect

EndIf

MsgBoxmsg

EndSub