根據某訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。的值,來決定要執行哪段訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。。
語法:
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
Select Case 陳述式的語法具有以下幾個單元:
單元 | 描述 |
testexpression | 必要引數,此為任何的訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。或訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。。 |
expressionlist-n | 如果 Case 出現,則為必要引數,其形式可為以下多種情形:運算式,運算式 To 運算式,Is 比較運算式。To 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。可用來指定數值範圍,如果您使用 To 關鍵字,則較小的數值要出現在 To 之前,使用 Is 關鍵字時,則可以配合訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 ( 除 Is 和Like 之外 ) 來指定數值範圍,如果沒有題供,則 Is 關鍵字會自動插入。 |
statements-n | 選擇性引數,如果 testexpression 合乎某部份的expressionlist-n,則會執行相對應的陳述式。 |
elsestatements | 選擇性引數,如果 testexpression 都不合乎任何的 Case 子句,則會執行這部份的陳述式。 |
請注意
如果 testexpression 合乎某個 Case expressionlist 運算式, 則在 Case 子句之後的陳述式會被執行,直到下一個 Case 子句,如果是最後一個子句,則會執行到 End Select 。 然後控制權會轉移到 End Select 之後的陳述式,如果 有一個以上的 Case 子句中的 expressionlist 運算式合乎 testexpression 的條件,則只有最先的那一段之中的陳述式會被執行。
當 testexpression和所有的 Case 子句中的 expressionlist 都不合乎時,則會執行 Case Else 子句中的指令,雖然 Case Else 不是必要的,但是在您的 Select Case區塊中,最好還是加上 Case Else 陳述式來處理特別的 testexpression 值。如果沒有 Case expressionlist 合乎 testexpression ,而且也沒有 Case Else 陳述式,則程式會從 End Select 之後的陳述式繼續執行。
您可以在每個 Case 子句中使用多重運算式或使用範圍,例如,底下的陳述式是正確的:
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber
附註 Is 比較運算元和使用在 Select Case 陳述式中的 Is 關鍵字並不相同。
您也可以針對字串指定範圍和多重運算式,在底下的例子中, Case 所合乎的字串為:等於 everything 、按英文字母排列的從 nuts 到 soup 之間的字串、以及 TestItem 所代表的現值。
Case "everything", "nuts" To "soup", TestItem
Select Case 陳述式也可以是巢狀,但每個 Select Case 陳述式必須要有相對的 End Select 陳述式。
Select Case 程式碼範例本範例使用
Select Case 陳述式來判斷變數的值。範例中第二個
Case 子句因子包含了此變數值,故只有此區塊內的陳述式會被執行到,執行結果在「即時運算」視窗中顯示。
Dim NumberNumber = 8
' 設定變數初值。Select Case Number
' 判斷 Number 的值。 Case 1 To 5
' Number 的值在 1 到 5 之間,是非排它性的。 Debug.Print "Between 1 and 5"
' 下一個 Case 子句是本範例中唯一判斷值為 True 的子句。 Case 6, 7, 8
' Number 的值在 6 到 8 之間。 Debug.Print "Between 6 and 8"
Case 4, 8 To 10
' Number 的值為 4, 8, 9, 或 10。 Debug.Print "Greater than 8"
Case Else ' 其它數值。 Debug.Print "Not between 1 and 10"
End SelectSelect Case 配合控制項陣列運用範例本範例有三個單選鈕控制項(OptionButton) optAlign(0)~optAlign(2)以控制項陣列建立,
執行時若按下三者之一,除了該項單選鈕的屬性 Value 的值會改變成 True,也會觸發事件程序
optAlign_Click,而以 Index 整數值得以區分按下的是三個之中那一個,運用 Select Case
陳述式分別作不用的處置。
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。