Select...Case Statement
Määritetään yksi tai useampia lauselohkoja, joista korkeintaan yksi suoritetaan riippuen lausekkeen arvosta.
Select Case ehto Case lauseke1 lauselohko1 [Case lauseke_m lauselohko_m][Case Else] lauselohko_n 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 "Luvut 1:stä 5:een"
Case 6, 7, 8
Print "luvut 6:sta 8:aan"
Case 8 To 10
Print "suurempi kuin 8"
Case Else
Print "Välin 1...10 ulkopuolella"
End Select
End Sub