Turinys
Rodyklė 🔎︎

# Pasirinkite…Case sakinį

Aprašo vieną ar daugiau sakinių blokų, priklausomai nuo reiškinio reikšmės.

### Sintaksė:

    Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select

### Parametrai:

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.

### Pavyzdys:

    Sub ExampleRandomSelect
    Dim iVar As Integer
        iVar = Int((15 * Rnd) -2)
        Select Case iVar
            Case 1 To 5
                Print "Skaičius nuo 1 iki 5"
            Case 6, 7, 8
                Print "Skaičius nuo 6 iki 8"
            Case 8 To 10
                Print "Skaičius, didesnis nei 8"
            Case Else
                Print "Už intervalo 1–10 ribų"
        End Select
    End Sub