lang • select

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