Istruzione Select...Case
Definisce uno o più blocchi di istruzioni in base al valore di un'espressione.
Espressione Select Case
Valori di Case
Blocco istruzioni
[ Case valori2
Blocco istruzioni]
[ Case Else
Blocco istruzioni]
End Select
espressione: qualsiasi espressione volta a verificare se il blocco di istruzioni che segue la rispettiva clausola Case deve essere eseguito.
valori: qualsiasi elenco di valori compatibile con l'espressione. Il blocco di istruzioni che segue la clausola Case verrà eseguito se i valori corrispondono all'espressione.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Numero da 1 a 5"
Case 6, 7, 8
Print "Numero da 6 a 8"
Case 8 To 10
Print "Maggiore di 8"
Case Else
Print "Al di fuori dell'intervallo 1-10"
End Select
End Sub