IBM Lotus Symphony
|
Definuje jeden alebo viac blokov príkazov, závisiacich na hodnote výrazu.
Select Case podmienka Case výraz blok_príkazov [Case výraz_2 blok_príkazov][Case Else] blok_príkazov End Select
Podmienka: ľubovoľný výraz, ktorý riadi, či sa vykoná blok príkazov nasledujúci za príslušnou klauzulou Case.
Výraz: ľubovoľný výraz vyhovujúci výrazu typu podmienky. Blok príkazov nasledujúci po klauzule Case sa vykoná, ak sa podmienka zhoduje s výrazom.
Sub Príklad_Random Select
Dim iVar ako typ Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Čísla od 1 do 5"
Case 6, 7, 8
Print "Číslo od 6 do 8"
Case 8 To 10
Print "Väčší ako 8"
Case Else
Print "Mimo rozsahu 1 až 10"
End Select
end sub