Экономическая информатика-стр.395

Программный оператор 2 Endlf Endlf

Пример применения вложенного оператора:

If Name = «Иванов» Then

If Rang = «Торговый агент» Then Textl .Text = Name & Rang Else

Text2.Text=«AreHTa с указанной фамилией в списке нет» Endlf Endlf

При использовании вложенных операторов If важно не перепутать варианты сочетания условий. Нужно помнить правило: альтернатива Else считается принадлежащей ближайшему оператору If, не имеющему ветви Else.

В системе VBA предусмотрена также конструкция для работы с несколькими операторами If. Несколько операторов If применяются в случаях, когда необходимо рассмотреть еще несколько условий в дополнение к исходному. Для этого служит конструкция If ... Then ... Elself. В отличие от вложенных операторов конструкция с несколькими операторами If позволяет проверить дополнительное условие, если исходное условие принимает значение False. Синтаксическая конструкция записи нескольких операторов If:

If выражение_условия_1 Then Программный оператор 1 Elself выражение_условия_2 Then Программный оператор 2 Else

Программный оператор 3 Endlf

Пример:

If CorrectAnsver.Text >=8 Then Ball.Text =«Отлично»

Elself CorrectAnsver.Text >=6 Then Ball.Text = «Хорошо»

Elself CorrectAnsver.Text >=4 Then Ball.Text = «Удовлетворительно»

Else Ball.Text = «Неудовлетворительно»

Endlf

Приведенный код программы определяет количество правильных ответов и выставляет оценку. Он работает следующим образом. Сначала проверяется значение условия в операторе If. Если оно принимает значение True, то выполняется оператор (или блок операторов), следующий непосредственно за оператором If, после чего программа переходит к выполнению оператора, следующего за Endlf. Если первое условие принимает значение False, то программа переходит к выполнению первого оператора Elself, чтобы проверить выполнение его условия. Если оно имеет значение True, то выполняется оператор Ball = 4, и программа переходит к выполнению оператора, следующего за Endlf. В противном случае эта последовательность действий повторится для следующего оператора Elself, и так до тех пор, пока не будут проверены все из них.