Работа № 14. Использование условного оператора

Цель работы: Расширить навыки практической работы в среде программирования VBA.

В результате выполнения данной работы студенты должны закрепить навыки работы в среде программирования VBA и разработки простейших программ с использованием оператора условного перехода.

В конце лабораторной работы студенты должны представить отчёт по работе преподавателю в виде демонстрации работы тестовой программы.

Указания по порядку выполнения работы.

Постановка задачи. Некоторая компьютерная фирма, для того чтобы стимулировать клиентов кприобретению ее продукции, предложила следующую схему. Любой клиент,который приобретает у фирмы ее продукцию на сумму свыше 10000 руб.,получает скидку в размере 5 % от стоимости приобретаемой продукции.Требуется разработать программу, которая в зависимости от введеннойпользователем суммы определяет размер скидки на продукцию и сообщаетпользователю стоимость приобретаемой им продукции с учетом скидки.Если же приобретаемая пользователем продукция стоит менее 10000 руб., топрограмма должна выдать сообщение о том, что данный пользователь неимеет права на скидку.

Введение

При решении многих задач из области программирования возникаетнеобходимость выбора одного варианта действий из двух или болеевозможных. Для того, чтобы правильно осуществить этот выбор, в языкахпрограммирования используются специальные операторы. Такие операторыесть и в языке VBA. Если необходимо выбрать один вариант из двухвозможных, то применяется оператор условного перехода. Операторусловного перехода выбирает тот или иной вариант действия в зависимостиот значения некоторого условия. Общий вид этого оператора в языке VBAследующий:

If условие Then вариант 1 Else вариант 2

Механизм работы этого оператора следующий: вначале проверяетсяусловие, находящееся после служебного слова If. В качестве такого условияобычно выступает какая-либо операция сравнения. Результатом выполнениятакой операции является логическая величина, которая может приниматьтолько два значения: True (истина) или False (ложь). Если условиеистинно, то программа выполняет вариант 1, находящийся послеслужебного слова Then. Если же условие ложно, то выполняетсявариант 2, который находится после служебного слова Else. Каждый изэтих вариантов в свою очередь может представлять собой один оператор илигруппу операторов языка VBA.

Приведенная выше форма записи условного оператораIf ... Then ... Else называется однострочной, так как все служебныеслова и соответствующие им варианты записаны в одну строку. Эта формазаписи не всегда бывает удобна для программиста. Если какой-либо извариантов (или оба) представляют собой достаточно длиннуюпоследовательность операторов, то строка выйдет за пределы экрана, и длятого чтобы отредактировать такую строку (или даже просто просмотреть еесодержимое) придется постоянно «прокручивать» ее в ту или иную сторону.Поэтому наряду с однострочной формой записи применяется и другаяформа записи условного оператора, называемая блочной. Для блочнойформы записи общий вид данного оператора будет следующим: