VBS中select case 的條件語句用法

在basic裏這樣的寫法才是正確的.不過VBS不支持此寫法.樓上的方法可以不過麻煩了點.還不如用if方便.

Dim a

a = InputBox("隨便填")

a = Int(a)

Select Case a

Case Is > 5 And a < 10

MsgBox ("還行")

Case Is > 10 And a < 15

MsgBox ("壹般")

Case Is > 15 And a < 20

MsgBox ("可以了")

Case Is > 20 And a < 25

MsgBox ("無敵了")

Case Else

MsgBox ("做夢呢")

End Select