Příkaz Select...Case
V závislosti na hodnotě výrazu definuje jeden nebo více bloků příkazů.
Select Case podmínka Case výraz Blok příkazů [Case podmínka2 Blok příkazů][Case Else] Blok příkazů 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 "Čí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