Příkaz Select...Case
V závislosti na hodnotě výrazu definuje jeden nebo více bloků příkazů.
Syntaxe:
Select Case podmínka Case výraz Blok příkazů [Case podmínka2 Blok příkazů][Case Else] Blok příkazů End Select
Parametry:
Podmínka: Jakýkoliv výraz, podle kterého se určí spuštění bloků příkazů u klauzulí Case.
Výraz: Jakýkoliv výraz, který je kompatibilní s typem podmínky. Pokud výraz odpovídá podmínce, spustí se následující blok příkazů.
Příklad:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Čísla od 1 do 5"
Case 6, 7, 8
Print "Čísla od 6 do 8"
Case 8 To 10
Print "Větší než 8"
Case Else
Print "Mimo rozsah 1 až 10"
End Select
End Sub