Оператор выбора Select Case
При наличии большого количества ветвлений конструкция многозначных ветвлений If становится тяжёлой для восприятия. В подобных случаях хорошей альтернативой оператору If служит оператор выбора Select Case, который позволяет выбрать одно из нескольких возможных продолжений программы.
| Синтаксис оператора Select Case: Select Case КлючВыбора Case Is выражение оператор Case диапазон значений оператор Case диапазон значений оператор Case диапазон значений оператор Case Else оператор End Select | Например: Select Case vozrast Case Is <=7 Msgbox ”Ты дошкольник” Case 8 to 16 Msgbox ”Ты учишься в школе” Case 17 to 30 Msgbox ”Тебе пора заняться делом” Case 31 to 60 Msgbox ”Кто не работает, тот не ест” Case Else Msgbox ”Вы заслужили отдых” End Select |
Если значение переменной vozrast меньше или равно 7, отображается сообщение ”Ты дошкольник”. Если значение переменной vozrast находится в диапазоне от 8 до 16, отображается сообщение ”Ты учишься в школе”. Если значение переменной vozrast находится в диапазоне от 17 до 30, отображается сообщение ”Тебе пора заняться делом”. Если значение переменной vozrast находится в диапазоне от 31 до 60, отображается сообщение ”Кто не работает, тот не ест”. Если значение возраста не равно ни одному из предложенных диапазонов значений, выводится сообщение ”Заслуженный отдых”.
Вы видите, что код этой процедуры более прост для восприятия, чем многозначные ветвления If, и в случае трёх и более возможных разветвлений в программе лучше использовать оператор Select Case.
Демонстрируется выполнение практического задания