При наличии большого количества ветвлений конструкция многозначных ветвлений 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.
Практическое задание
Выполнить предыдущее практическое задание с применением оператора Select Case.