vb写程序输入一个字符，判断是数字字符？大小字母？其他字符？

答案:3 悬赏:60 手机版

解决时间 2021-03-20 18:46

提问者网友：听门外雪花风
2021-03-19 19:01

最佳答案

五星知识达人网友：舊物识亽
2021-03-19 19:17

If Asc(Text1.Text) < "58" And Asc(Text1.Text) > "47" Then
MsgBox "数字"
ElseIf Asc(Text1.Text) < "91" And Asc(Text1.Text) > "64" Then
MsgBox "大写字母"
ElseIf Asc(Text1.Text) < "123" And Asc(Text1.Text) > "96" Then
MsgBox "小写字母"
ElseIf Asc(Text1.Text) < 0 Then
MsgBox "汉字或其他字符"
Else
MsgBox "其他字符"
End If

全部回答

1楼网友：傲气稳了全场
2021-03-19 21:20

private sub form_click() dim a as string a=inputbox(“一个字符”,“输入”,“0”) if a>=“0” and a<=“9” print a;“是一个数字” elseif a>=“a” and a<=“z” print a;“是一个小写字母” elseif a>=“A” and a<=“Z” print a;“是一个大写字母” elseif print a;“是一个其他字符” end sub

2楼网友：醉吻情书
2021-03-19 19:43

dim a as string a=inputbox("请输入一个字符") select case a case "0" to "9" msgbox "是数字" case "a" to "z","a" to "z" msgbox "是字母" case else msgbox "是其它字符" end select

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息