IBM Lotus Symphony
|
Definiuje jeden lub kilka bloków w zależności od wartości wyrażenia.
Select Case Warunek Case wyrażenie Blok instrukcji [Case wyrażenie_2 Blok instrukcji][Case Else] Blok instrukcji End Select
Warunek: Wyrażenie sterujące decydujące o tym, czy zostanie wykonany blok instrukcji występujący po odpowiedniej klauzuli Case.
Wyrażenie: Wyrażenie zgodne z wyrażeniem typu warunkowego. Blok instrukcji następujący po klauzuli Case jest wykonywany, jeśli wyrażenie Warunek jest zgodne z elementem Wyrażenie.
Sub Przyklad_LiczbaLosowa
Dim iZm As Integer
iZm = Int((15 * Rnd) -2)
Select Case iZm
Case 1 To 5
Print "Liczba od 1 do 5"
Case 6, 7, 8
Print "Liczba od 6 do 8"
Case 8 To 10
Print "Liczba większa niż 8"
Case Else
Print "Liczba spoza zakresu od 1 do 10"
End Select
end sub