VBA switch語句

當一個用戶要執行一組根據表達式語句的值在使用select case。每個值被稱爲 case，並且基於每一種情況下的變量被接通。case else語句執行，如果測試表達式不匹配任何由用戶指定的case。

case else爲一個可選的聲明在使用 select case 時，始終有一個case else語句是一個良好的編程習慣。

語法:

在VBScript一個Swithc語句的語法是：

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