当用户想要根据Expression的值执行一组语句时，使用Switch Case语句。 每个值被称为一个”情况”，并根据每种情况变量接通测试。如果测试表达式与用户指定的任何Case不匹配，则执行Case Else语句。
Case Else是Select Case中的一个可选语句，但是，总是使用一个Case Else语句是一个很好的编程习惯。
语法
以下是VBScript中的Switch语句的语法。
Select Case expression
Case expressionlist1
statement1
statement2
....
....
statement1n
Case expressionlist2
statement1
statement2
....
....
Case expressionlistn
statement1
statement2
....
....
Case Else
elsestatement1
elsestatement2
....
....
End Select
示例
为了演示目的，这里通过一个函数的来计算整型的类型。参考以下图 -
参考示例代码 -
Private Sub switch_demo_Click()
Dim MyVar As Integer
MyVar = 1
Select Case MyVar
Case 1
MsgBox "The Number is the Least Composite Number"
Case 2
MsgBox "The Number is the only Even Prime Number"
Case 3
MsgBox "The Number is the Least Odd Prime Number"
Case Else
MsgBox "Unknown Number"
End Select
End Sub
执行上面示例代码，得到以下结果 -
上一篇：
VBA决策
下一篇：
VBA循环
