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

2024-11-24 01:48:59

推荐回答（2个）

回答1：

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

回答2：

呃！你Select Case A是变量A，Case里判断又是变量ls，当然不对了。。