![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
问一个VB里select case语句的很基础问题。。(内详)
OptionExplicitPrivateSubCommand1_Click()DimAAsSingleA=Val(Text1.Text)SelectCaseACaseI...
Option ExplicitPrivate Sub Command1_Click()Dim A As Single
A = Val(Text1.Text)Select Case A
Case Is > 0, Is < 60
MsgBox ("不及格")Case Is >= 60, Is < 80
MsgBox ("良好")Case Is >= 80, Is <= 100
MsgBox ("优秀")Case Else
MsgBox ("成绩不合法")End Select
End Sub
这段代码错哪儿了,怎么每次输入成绩后点击后都提示不及格...... 展开
A = Val(Text1.Text)Select Case A
Case Is > 0, Is < 60
MsgBox ("不及格")Case Is >= 60, Is < 80
MsgBox ("良好")Case Is >= 80, Is <= 100
MsgBox ("优秀")Case Else
MsgBox ("成绩不合法")End Select
End Sub
这段代码错哪儿了,怎么每次输入成绩后点击后都提示不及格...... 展开
2个回答
2013-11-23
展开全部
case后面的IS只能执行一个范围,如IS>0,IS<60那么只会执行IS>0这个,所以你的代码就有问题了,效果不是你想要的,可以用To表示范围的,你改写成如下的代码就OK了。Private Sub Command1_Click()Dim A As Single
A = Val(Text1.Text)
Select Case A
Case 0 To 60
MsgBox ("不及格")
Case 60 To 80
MsgBox ("良好")
Case 80 To 100
MsgBox ("优秀")
Case Else
MsgBox ("成绩不合法")End Select
End Sub
A = Val(Text1.Text)
Select Case A
Case 0 To 60
MsgBox ("不及格")
Case 60 To 80
MsgBox ("良好")
Case 80 To 100
MsgBox ("优秀")
Case Else
MsgBox ("成绩不合法")End Select
End Sub
2013-11-23
展开全部
呃!你Select Case A是变量A,Case里判断又是变量ls,当然不对了。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询