Select...Case Statement

Defines one or more statement blocks depending on the value of an expression.

Синтакса

Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block 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

            Печати "број од 1 до 5"

        Case 6, 7, 8

            Печати "број од 6 до 8"

        Case 8 To 10

            Печати "поголемо од 8"

        Case Else

            Print "Out of range 1 to 10"

    End Select

End Sub