VBA switch語句

2019-10-16 23:12:57

當使用者想要根據Expression的值執行一組語句時,使用Switch Case語句。 每個值被稱為一個」情況」,並根據每種情況變數接通測試。如果測試表示式與使用者指定的任何Case不匹配,則執行Case Else語句。

Case ElseSelect 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

執行上面範例程式碼,得到以下結果 -