Příkaz Select...Case
V závislosti na hodnotě výrazu definuje jeden nebo více bloků příkazů.
Select Case výraz
Case hodnoty
blok příkazů
[ Case hodnoty2
blok příkazů]
[ Case Else
blok příkazů]
End Selectvýraz: Jakýkoliv výraz, podle kterého se určí spuštění bloků příkazů u klauzulí Case.
hodnoty: Jakýkoliv seznam hodnot, který je kompatibilní s výrazem. Pokud výraz odpovídá hodnotám, spustí se blok příkazů následující klauzuli Case.
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