Оператор выбора
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
|
