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 Main()
DIM x,w,a,b,c,d,e,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
Замечание
Обратите внимание, что Select Case может выполнить не более одной из содержащихся в ней последовательностей конструкций. После того как одно из условий оказалось равно True, и была выполнена соответствующая последовательность конструкций, Select Case завершит свою работу. Остальные условия проверяться не будут.
