一个简单得不好意思问的问题？

Question

我在一张表单上放置了一个编辑框text1及一个按钮控件Command1，在按钮控件的click事件中添加代码Dim x As Integer
x = Val(Text1.Text)
Rem 上面这句换成x=Text1.Text也一样Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End SubPrivate Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)Select Case x
Case x < 60
Print "不及格"
Case x >= 80
Print "优秀"
Case Else
Print "一般"
End Select
End Sub我想问的是当我在编辑框中输入98，为何还是打印“一般”？

Answer 1

Select Case 不能用于范围值，这里只能使用If ThenIf x<60 then
Print "不及格"
elseif x>=80 then
Print "优秀"
else
Print "一般"
end if

Answer 2

如果 x = 98
那么 case x<60
等于 case false
等于 case 0
x 当然不等于 0 了，其他同理。
仔细看帮助，应该改成
select case x
case is < 60
...
case is >= 80
...
case else
...
end select

Answer 3

Print IIf(x < 60, "不及格", IIf(x >= 80, "优秀", "一般"))

Answer 4

select case 语句做范围判断应该用  IS