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