double arrow

Задание 2. Суммирование чисел, вводимых с клавиатуры.

1

Лабораторнаяработа №_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.

Напишите макрос на основе фрагмента неполного условного перехода, приведённого ниже, посмотрите его работу.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  


1