Select...Case Statement

Definierar ett eller flera uttrycksblock beroende pÄ ett uttrycks vÀrde.

Syntax:


Select Case villkor Case Uttryck Villkorssats[Case Uttryck2 Villkorssats2][Case Else] Villkorssats End Select

Parametrar:

Villkor: Det uttryck som styr vilket av de villkorliga blocken efter respektive Case-sats som ska exekveras.

Uttryck: Ett uttryck vars resultattyp stÀmmer överens med villkorsuttrycket. Den villkorssats som följer efter Case-satsen exekveras om Villkor stÀmmer överens med Uttryck.

Exempel:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Nummer frÄn 1 till 5"
        Case 6, 7, 8
            Print "Nummer frÄn 6 till 8"
        Case 8 To 10
            Print "Större Àn 8"
        Case Else
            Print "Utanför intervallet 1 till 10"
    End Select
End Sub