VBA switch語句

當用戶想要根據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

執行上面示例代碼，得到以下結果 -