VBA - Switch 语句

当用户想要根据表达式中的一个值来执行一组语句时，则会用到 Switch Case。每个值称为一个 Case，并且变量会根据每个 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

当执行上述代码时，它会产生以下结果。

The Number is the Least Composite Number