Select...Case Statement
依據表示式的值定義一個或多個陳述式區塊。
語法：
Select Case condition Case expression Statement Block[Case expression2 Statement Block][Case Else]Statement Block End Select
參數：
Condition：任意表示式，用於控制是否執行各個 Case 子句之後的陳述式區塊。
Expression：與 Condition 類型表示式相容的任意表示式。如果 Condition 與 Expression 相符，則執行 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