Select...Case Statement

依據表示式的值定義一個或多個陳述式區塊。

語法


Select Case condition Case expression Statement Block[Case expression2 Statement Block][Case Else]Statement Block End Select

參數:

Condition:任意表示式,用於控制是否執行各個 Case 子句之後的陳述式區塊。

Expression:與 Condition 類型表示式相容的任意表示式。如果 ConditionExpression 相符,則執行 Case 子句之後的陳述式區塊。

示例:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Number from 1 to 5"
        Case 6, 7, 8
            Print "Number from 6 to 8"
        Case 8 To 10
            Print "Greater than 8"
        Case Else
            Print "Out of range 1 to 10"
    End Select
End Sub