Лабораторнаяработа №_9
Visual Basic for Applications (VBA)
Условные операторы
Цель работы:
Приобретение навыков написания пользовательских функций и процедур.
Содержание занятия:
Задание 1. Вычисление значения выражения.
Задание 2. Суммирование чисел, вводимых с клавиатуры.
Задание 3. Вычисление значения выражения с несколькими условиями.
Задание 4. Самостоятельная работа
Порядок выполнения работы:
Задание 1.Вычисление значения выражения.
Условный оператор (ветвление)представляет разветвление алгоритма в зависимости от значения (истинности или ложности) некоторого условия.
В общем виде конструкция выглядит так:
< Если ><условие>< То ><действия1>< Иначе ><действия2>< Конец >.
Эта алгоритмическая конструкция читается как «Если условие истинно, то выполнить действия1, иначе (если условие ложно), выполнить действия2, конец алгоритма» (рис.1).Здесь знаки «+» и «-» обозначают «да» (условие выполняется) и «нет» (условие не выполняется).
Рис.1 Блок-схема условного алгоритма
|
|
Синтаксис условного оператора в VBA похож на многие другие языки:
If <условие> Then <действия1> Else <действия2> EndIf.
Пример 1
Вычислите значение выражения:
.
Решение:
На рис.2 представлена часть блок-схемы этого примера с использованием условного перехода.
Рис.2 Блок-схема примера 1
Соответствующий блок-схеме фрагмент программы представлен ниже:
Допишите макрос, запустите его на выполнение и посмотрите его работу.
Задание 2. Суммирование чисел, вводимых с клавиатуры.
Просуммировать числа, вводимые с клавиатуры. Если число отрицательное, то заменить его единицей.
Решение:
Пусть переменная а хранит значение введенного числа, а переменная S хранит сумму введенных чисел.Фрагмент блок-схемы этого примера приведена на рис.3.
Рис.3 Блок-схема примера 2.
Напишите макрос на основе фрагмента неполного условного перехода, приведённого ниже, посмотрите его работу.