问一个VB里select case语句的很基础问题。。(内详)

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
这段代码错哪儿了，怎么每次输入成绩后点击后都提示不及格......

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f4m274mq47v824m7fq4.html