Последовательность действий

End If

Else

Программирование разветвляющихся процессов

В отличии от программирования линейных процессов, когда операторы в выражении (формуле) пользовательской функции выполняются последовательно, программирование разветвляющихся процессов требует использования специальных управляющих конструкций, которые обеспечивают выполнение операторов в зависимости от результатов проверки определенных условий. Такие управляющие конструкции обычно называют структурами ветвления. Для управления порядком выполнения операторов при программировании разветвляющихся процессов в пользовательских функциях используются две управляющие конструкции, которые рассматриваются ниже.

3.2.1. Управляющая конструкция If … Then … ElseIf … Else

Данная конструкциясодержит ключевые слова: If ( если ), Then ( то ), ElseIf ( иначе, если ),

Else ( иначе ).

Синтаксис конструкции:

If условие 1 Then

операторы 1

ElseIf условие 2 Then

операторы 2

^·

^·

^·

операторы N

Ключевое слово ElseIf может повторятьсяв структуре кодалюбое число раз.

Задание 5. Создать пользовательскую функцию ПРЕМИЯ1 для вычисления премии работнику в зависимости от оклада ОК и стажа работы СТ. Премия составляет 0,2 (20 %) от оклада, если стаж работы меньше 5 лет, и 0,4 (40 %), если стаж более или равен 5 лет:

ОК * 0.2, если СТ < 5

ОК * 0.4, если СТ > = 5

1. Задание выполняется в соответствии с методикой, изложенной в пунктах 2 – 12 задания1. В окне проводника проекта будет создан Module1.

2. В диалоговом окне Add Procedure (добавлениепроцедуры), представленном на рис.3.1, в строке Name (имя) ввести имя функции ПРЕМИЯ1. Щелкнуть на кнопке ОК.

3. Аргументы ОК и СТ указатьв круглых скобках после имени функции (см. рис. 3.2).

4. В окне редактора кода (слева на рис.3.11) ввести программный код пользовательской функции, сопроводив комментарием «Вычисление премии1». Обратить внимание, что вдробных числахпрограммного кода ставится не запятая, а точка (клавиша на малой цифровой клавиатуре).

5. В MS Excel (справа на рис.3.11) переименовать Лист1 в Премия1, в столбцы А (Оклад) и В (Стаж) ввести значения аргументов, а столбец С (Премия1) должен быть пустым.

6. Выделить ячейку С2, вызватьдиалоговое окно «Мастер функций» ив категории «Определенные пользователем» выполнить пользовательскую функцию ПРЕМИЯ1. Распространить формулу в ячейке С2 вниз (см. рис.3.11). Проанализировать полученный результат и предъявить его преподавателю.

.

Рисунок 3.11- Результат выполнения функции ПРЕМИЯ 1 на листе1

В данном задании выполнялось программирование на языке VBA MS Excel разветвляющегося процесса на примере проверки двух условий. Приведем пример программирования с проверкой трех условий.

Задание 6. Изменим формулировку предыдущего заданияследующим образом.

Создать пользовательскую функцию ПРЕМИЯ2 для вычисления премии работнику в зависимости от оклада ОК и стажа работы СТ. Премия составляет 0,1 (10 %) от оклада, если стаж работы меньше 5 лет; 0,2 (20 %), если стаж больше или равен 5 лет и меньше 10 лет; 0,4 (40%), если стаж больше или равен 10 лет:

Особенность выполнения задания:

· создать пользовательскую функцию ПРЕМИЯ2 в том же модуле, в котором уже находится функция ПРЕМИЯ1. Напомним, что для этого в меню Insert окна программного кода (см. рис 3.1) достаточно выполнить команду Procedure (процедура);

· самостоятельно ввести программный код и выполнить пользовательскую функцию ПРЕМИЯ2 на листе Премия1, как показано на рис. 3. 12;

· лист Премия1 переименовать в «Премия1 и 2».

Рисунок 3.12- Результат выполнения функций ПРЕМИЯ 1 и 2 на листе1

Произвольно изменять значения столбца А (Оклад) иубедиться в автоматическом изменении результата выполнения в обоих пользовательских функциях.

Сохранить созданный файл книги в собственной папке под именем Ветвления, для чего в меню Файл MS Excel выполнить команду Сохранить как.

Задание 7. Открыть из собственной папки файл Ветвления. Еслина экранеотсутствуетокно проводника проекта и окно редактора кода VB, то использовать комбинацию клавиш ALT + F11. Самостоятельно создать в этом файлена листе2 MS Excel модуль2 и в нем пользовательскую функцию СКИДКА для вычисления скидки покупателю в зависимости от цены товара Ц и количества товара К:

Исходные аргументы Ц и К задать произвольно. В MS Excel переименовать ярлычок листа2 в СКИДКА. Проанализировать полученный результат и предъявить преподавателю.

Задание 8. В файле Ветвления самостоятельно создать на листе3 MS Excel модуль3 и в нем пользовательскую функцию ОТПУСК для определения места проведения отпуска предпринимателя в зависимости от полученного дохода в уе (условные единицы):

В программном коде запись операторов должна быть, например, Отпуск = “Дача”. На рабочем листе3 MS Excelиспользовать два любых столбца с названием Доход (уе) и Отпуск. В столбец Доход (уе) ввести значения: 2000, 4000, 1000, 2500, 3000, 4000 и 1200. Переименовать ярлык Листа3 в Отпуск. Результат выполнения пользовательской функции предъявить преподавателю. Закрыть файл Ветвления с сохранением.

Задание 9. Самостоятельно создать в файле Ветвления на листе4 модуль4 функции MAX для определения максимального значения из трех чисел a, b и c.

Дата добавления: 2014-11-29