Оператор выбора

 

SELECT CASE <кл_выб>

case <сп_выб1>

<операторы1>

case <сп_выб2>

<операторы2>

case <сп_выб3>

<операторы3>

…….

CASE ELSE <оператор>

END SELECT

где SELECT CASE,, ELSE, END SELECT— зарезервированные слова (случай, из, иначе, конец);

<кл_выб> — ключ выбора (выражение любого типа);

<операторы> — операторы языка QBasic;

<сп_выб> — список выбора: одна или несколько конструкций вида:

<конст_выбора>:— одна константа;

<конст_ выбора1, конст_ выбора2, конст_ выбора3> — несколько констант;

<конст_ выбора1 TO конст_ выбора2,> — диапазон констант;

IS {любой из знаков отношений} <конст_ выбора1> — операции сравнерия с конст_выьора

— константы того же типа, что и <кл_выб>

Часть ELSE может отсутствовать. Оператор начинается с вычисления значения <кл_выб>. Затем в списке выбора отыскивается значение константы, равное вычисленному значению. Если поиск удачен, то выполняются соответствующие операторы, после чего оператор завершает работу. Если в результате поиска нужное значение не было найдено, то выполняется оператор после слова ELSE. В случае отсутствия части ELSE, оператор ничего не выполняет и заканчивает работу.

Пример:

SELECT CASE TestValue

CASE 1,3,5,7,9

PRINT “Нечетное”

CASE 2,4,6,8

PRINT “Четное”

CASE IS < 1

PRINT “Очень маленькое”

CASE IS > 9

PRINT “Очень большое”

CASE ELSE

PRINT “Не целое значение”

END SELECT