在VB6.0中表示数值范围的表示方法的问题。

Question

Private Sub Command1_Click()
Dim grade As Integer
grade = CInt(Text1.Text)
Select Case grade
    Case 0 To 30
        Print "0 < grade < 30"
    Case 31 To 100
        Print "more than 30"
End Select
End Sub没什么不对吧？

Answer 1

Select case 是不行的，
可以用
      If
      else if
      end if
这样不是很好吗？