Instrukcja Select...Case
Definiuje jeden lub kilka bloków instrukcji w zależności od wartości wyrażenia.
Select Case warunek Case wyrażenie blok_instrukcji [Case wyrażenie2 blok_instrukcji][Case Else] blok_instrukcji End Select
condition: Any expression that controls if the statement block that follows the respective Case clause is executed.
expression: Any expression that is compatible with the condition type expression. The statement block that follows the Case clause is executed if condition matches expression.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Liczba od 1 do 5"
Case 6, 7, 8
Print "Liczba od 6 do 8"
Case 8 To 10
Print "Większa niż 8"
Case Else
Print "Poza zakresem od 1 do 10"
End Select
End Sub