Select...Case Statement
Definierar ett eller flera uttrycksblock beroende på ett uttrycks värde.
Select Case villkor Case Uttryck Villkorssats[Case Uttryck2 Villkorssats2][Case Else] Villkorssats 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 "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