SELECT
SELECT [ CASE ] Expresión
[ CASE Expresión [ TO Expresión #2 ] [ , ... ]
... ]
[ CASE Expresión [ TO Expresión #2 ] [ , ... ]
... ]
[ { CASE ELSE | DEFAULT }
... ]
END SELECT
Selecciona una expresión a comparar, y ejecuta el código encerrado en la expresión correspondiente
CASE.
Si no concuerda ninguna de las expresiones
CASE, se ejecutará el código dentro de la expresión
DEFAULT o
CASE.
Una expresión
CASE es una lista de valores simples o intervalos entre dos valores separados por la palabra clave
TO.
Examples
' Desea calcular una función aleatoria.
' Repite una función aleatoria mil veces para
' conocer cuantas veces aparecen los números
' 1,2,3,4,5 o 6.
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 "¡Esto es imposible!"
END SELECT
NEXT
PRINT a, b, c, d, e, f
Véase también