SELECT
SELECT [ CASE ] Espressione
[ CASE [ Espressione ] [ TO Espressione #2 ] [ , ... ]
... ]
[ CASE [ Espressione ] [ TO Espressione #2 ] [ , ... ]
... ]
[ CASE LIKE Espressione [ , ... ]
... ]
[ { CASE ELSE | DEFAULT }
... ]
END SELECT
Seleziona un'
Espressione da comparare eseguendo il codice racchiuso nella corrispondente istruzione
CASE.
Se l'istruzione
CASE non viene trovata, allora le istruzioni
DEFAULT o
CASE ELSE saranno valutate ed eventualmente eseguite.
Un'istruzione
CASE, è una lista di singoli valori o intervalli fra due valori, separati dall aparola chiave
TO.
La prima espressione è opzionale: L'
Espressione CASE TO corrisponderanno tutti i valori di Espressione.
Infine è possibile confrontare un'espressione regolare con la sintassi
CASE LIKE.
Esempio
' Si desidera controllare la funzione random di un dado.
' Si sa di ripetere la funzione random un migliaio di volte
' E si contano, quante volte 1, 2, 3, 4, 5 o 6
' Sono stati lanciati.
DIM x AS Integer
DIM w AS Integer
DIM a AS Integer
DIM b AS Integer
DIM c AS Integer
DIM d AS Integer
DIM e AS Integer
DIM f AS Integer
FOR x = 1 TO 1000
w = Int(Rnd(6) + 1)
SELECT CASE w
CASE 1
a = a + 1
CASE 2
b = b + 1
CASE 3
c = c + 1
CASE 4
d = d + 1
CASE 5
e = e + 1
CASE 6
f = f + 1
CASE ELSE
PRINT "Questo è impossibile!"
END SELECT
NEXT
PRINT a, b, c, d, e, f
Vedi anche