IBM Lotus Symphony
|
Определяет один или несколько блоков операторов в зависимости от значения выражения.
Select Case Условие Case Выражение Блок операторов [Case Выражение2 Блок операторов][Case Else] Блок операторов End Select
Условие: произвольное выражение, определяющее, будет ли выполнен блок операторов, следующий за соответствующим предложением Case.
Выражение: произвольное выражение, совместимое с типом Условия. Блок оператора, следующий за предложением Case, будет выполнен если Условие совпадает с Выражением.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Число от 1 до 5"
Case 6, 7, 8
Print "Число от 6 до 8"
Case 8 To 10
Print "Число больше 8"
Case Else
Print "Вне диапазона от 1 до 10"
End Select
end sub