Anweisung Select...Case
Definiert einen oder mehrere Befehlsblöcke, die in Abhängigkeit von dem Ergebnis eines bestimmten Ausdrucks stehen.
Select Case Bedingung Case Ausdruck Anweisungsblock[Case Ausdruck2 Anweisungsblock][Case Else] Anweisungsblock 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 "Zahl von 1 bis 5"
Case 6, 7, 8
Print "Zahl von 6,7 oder 8"
Case 8 To 10
Print "Größer als 8"
Case Else
Print "Außerhalb von 1 bis 10"
End Select
End Sub