一个关于vb的程序 判断输入的字符是
PrivateSubCommand1_Click()Dimq%q=Asc(Text1.Text)IfIsNumeric(Text1.Text)ThenMsgBox"数字"...
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 展开
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 展开
2017-03-27 · 知道合伙人教育行家
天雨下凡
知道合伙人教育行家
向TA提问 私信TA
知道合伙人教育行家
采纳数:17564
获赞数:65140
爱电脑、爱数学、爱音乐; 熟悉VB、C/C++、JAVA; EXCEL与VBA有所研究…… 数学,一些会,一些被忘却……
向TA提问 私信TA
关注
展开全部
把&改成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"
......
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询