Select Case結構提供了 If...Then...ElseIf結構的一個變通形式,可以從多個語句塊中選擇執行其中的一個。Select Case語句提供的功能與 If...Then...Else語句類似,但是可以使代碼更加簡練易讀。
Select Case結構在其開始處使用一個只計算一次的簡單測試表達式。表達式的結果將與結構中每個 Case 的值比較。如果匹配,則執行與該Case 關聯的語句塊,示例代碼如下:
Dim value '定義一個變量
value = 10 '變量賦值為10
Select Case value '判斷變量的值大小,如果相等則輸出變量值
Case 0 MsgBox 0
Case 1 MsgBox 1
Case 2 MsgBox 2
Case Else MsgBox "數值超出范圍!" '如過都不相等,則輸出”數值超出范圍!”
End Select
請注意 Select Case結構只計算開始處的一個表達式(只計算一次),而 If...Then...ElseIf 結構計算每個 ElseIf 語句的表達式,這些表達式可以各不相同。僅當每個 ElseIf 語句計算的表達式都相同時,才可以使用 Select Case 結構代替 If...Then...ElseIf 結構。
