Select...Case Statement

Определяет один или несколько участков кода программы, которые выполняются в зависимости от значения выражения.


Select Case syntax

Select Case Условие Case Выражение Участок_кода [Case Выражение2 Участок_кода][Case Else] Участок_кода 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 "Число от 1 до 5"
        Case 6, 7, 8
            Print "Число от 6 до 8"
        Case 8 To 10
            Print "Больше 8"
        Case Else
            Print "Вне диапазона от 1 до 10"
    End Select
End Sub

Please support us!