SELECT

SELECT Expression

  [ CASE Expression [ , Expression ... ]

    ... ]

  [ CASE Expression [ , Expression ... ]

    ... ]

  [ ( CASE ELSE | DEFAULT )

    ... ]

END SELECT

Выбирает выражение для сравнения и выполняет код, заключенный в соответствующий совпадению с CASE заявлением. Если нет совпадений с CASE заявлением, выполняется DEFAULT или CASE ELSE заявление.


Пример

Вы хотите проверить случайную функцию игральной кости. Так что, вы повторяете случайную функцию тысячу раз, подсчитывая сколько выпадений 1, 2, 3, 4, 5 или 6 было.

PUBLIC SUB Form_Open()

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
END SELECT

NEXT

PRINT a, b, c, d, e, f

END


См. также

WITH, If / IIf


Предыдущее: SEEK Следующее: Sgn