Select...Case Statement
Define unu o más bloques d'instrucciones, dependiendo del valor d'una espresión.
Select Case condición Case expresión Bloque d'instrucciones [Case espresión2 Bloque d'instrucciones][Case Else] Bloque d'instrucciones 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 "Númberu de 1 a 5"
Case 6, 7, 8
Print "Númberu de 6 a 8"
Case 8 To 10
Print "Mayor que 8"
Case Else
Print "Fuera del rangu de 1 a 10"
End Select
End Sub