SELECT
SELECT [ CASE ] Expression
[ CASE [ Expression ] [ TO Expression #2 ] [ , ... ]
... ]
[ CASE [ Expression ] [ TO Expression #2 ] [ , ... ]
... ]
[ CASE LIKE Expression [ , ... ]
... ]
[ { CASE ELSE | DEFAULT }
... ]
END SELECT
Seleciona uma expressão para comparar, e executar o código correspondente delimitado pela respectiva declaração
CASE
.
Se nenhuma declaração
CASE
for corresponde, a instrução
DEFAULT
ou
CASE ELSE
é executada.
A declaração
CASE
é uma lista de valores individuais ou intervalos de dois valores separados pela palavra-chave
TO
.
A primeira expressão é opcional:
CASE TO Expression
corresponderá a todos os valores até
Expression.
Finalmente, você pode comparar uma expressão regular com a sintaxe
CASE LIKE
.
Exemplo
' Você deseja verificar a função aleatória de um dado.
' Então você repete a função aleatória mil vezes
' e você conta, quantas vezes 1, 2, 3, 4, 5 ou 6
' foram lançados.
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 "Isto é impossível!"
END SELECT
NEXT
PRINT a, b, c, d, e, f
Veja também