VBS中select case 的条件语句用法

2025-02-27 13:13:05

推荐回答（2个）

回答1：

在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

回答2：

dim a
a=inputbox("随便填")
a=int(a)
select case a
case 6,7,8,9
msgbox("还行")
case 10,11,12,13,14,15
msgbox("一般")
case 16,17,18,19,20
msgbox("可以了")
case 21,22,23,24,25
msgbox("无敌了")
case else
msgbox("做梦呢")
end select