VBS之Select Case语句

用Select case语句判断,当变量a对应的值转化为整数后,如果数据为1,2或3时,提示"good",否则提示"ok"
以下是几种实现方式:

方式一:
Dim a
a = 0
a  = cint(a)
Select Case a
 Case 1,2,3
  MsgBox "good"
 Case Else
  MsgBox "ok"
End Select

方式二:
Dim a
a = 4
a  = cint(a)
Select Case (a>=1 And a<=3)
 Case True
  MsgBox "good"
 Case Else
  MsgBox "ok"
End Select

方式三:
Dim a
a = 1
a  = cint(a)
Select Case True
 Case (a>=1 And a<=3)
  MsgBox "good"
 Case Else
  MsgBox "ok"
End Select