Private Sub Command1_Click()
Dim q%
q = Asc(Text1.Text)
If IsNumeric(Text1.Text) Then
MsgBox "数字"
ElseIf q >= 97 & q <= 112 Then
MsgBox "大写字母A-Z"
ElseIf q >= 65 & q <= 90 Then
MsgBox "小写字母a-z"
End If
End Sub
做一个程序判断输入的是大写,小写还是字符。不知道错在哪里
Private Sub Command1_Click()
Dim q%
q = Asc(Text1.Text)
If IsNumeric(Text1.Text) Then
MsgBox "数字"
ElseIf q >= 97 & q <= 112 Then
MsgBox "大写字母A-Z"
ElseIf q >= 65 & q <= 90 Then
MsgBox "小写字母a-z"
End If
End Sub
æ&æ¹æAndï¼æa<=112æ¹æq<=122
......
ElseIf q >= 97 And q <= 122 Then
MsgBox "大ååæ¯A-Z"
ElseIf q >= 65 And q <= 90 Then
MsgBox "å°ååæ¯a-z"
......追é®
......
ElseIf q >= 97 And q <= 122 Then
MsgBox "大ååæ¯A-Z"
ElseIf q >= 65 And q <= 90 Then
MsgBox "å°ååæ¯a-z"
......追é®
æ¹äºä¸å¯¹ æçå°±æ¯qä¸æ¯a æ¹äº&ä¹æ²¡ç¨
追çæ&æ¹æAndï¼æq= 97 And q = 65 And q <= 90 Then
MsgBox "大ååæ¯A-Z"
......
温馨提示:答案为网友推荐,仅供参考