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