Select...Case-instructie
Definieert één of meer instructieblokken, afhankelijk van de waarde van een expressie.
Select Case Voorwaarde Case Expressie InstructieBlok [Case Expressie2 InstructieBlok][Case Else] InstructieBlok 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 "Getal van 1 tot 5"
Case 6, 7, 8
Print "Getal van 6 tot 8"
Case 8 To 10
Print "Groter dan 8"
Case Else
Print "Buiten bereik van 1 tot 10"
End Select
End Sub