Оператор цикла. Общие сведения.
Процесс, в котором один оператор или группа операторов выполняются многократно при различных значениях аргумента, называется циклическим процессом. В VBA для выполнения повторяющихся действий используются операторы цикла, которые бывают следующих типов:
· Оператор цикла с параметром For - Next, конструкция которого используется, если заранее известно, сколько раз должно повториться тело цикла:
| For счетчик = начальное_значение To конечное_значение Step шаг блок_операторов Next счетчик |
· Оператор цикла с предусловием или постусловием, которые используются для организации цикла с неизвестным заранее числом повторений тела цикла:
| Конструкция цикла с предусловием имеет вид: | Конструкция цикла с постусловием имеет вид: |
| Do While условие блок_операторов Loop | Do блок_операторов Loop While условие |
| While условие блок_операторов Wend |
Итак, в качестве примера рассмотрим решение следующей задачи.
Задание 1. Средствами VBA разработать пользовательскую функцию, вычисляющую сумму первых N чисел, где N-натуральное число.
Таблица 1-1. Инструкция по выполнению задания
| Основные этапы работы | Описание этапов |
| 1. Подготовить данные для решения задачи | · Включите вкладку ленты «Разработчик»;
· Переименуйте «Лист 1», в «Пример» и создайте следующую таблицу:
|
| 2. Создать пользовательскую функцию СУММЧИСЛ() в редакторе VB | При решении поставленной задачи учтем, что Начальное значение суммы должно быть равно нулю.
Для записи программного кода задачи будем использовать следующую форму оператора цикла:
· Запишите программный код задачи, предварительно создав пользовательскую функцию.
· Сохраните файл под именем Лаб_работа_12.xlsm (с поддержкой макросов)
|
| 3. Решите данную задачу с использованием функции СУММЧИСЛ() | · Используя мастер функций, добавьте функцию СУММЧИСЛ() из категории «Определенные пользователем» и решите данную задачу.
|
| 4. Другие способы решения данной задачи | · Цикл с предусловием (Вариант 1)
· Цикл с предусловием (Вариант 2)
· Цикл с постусловием
|
Задачи для самостоятельного решения
Задача 1. Найти произведение[1] первых N чисел, где N – натуральное число.
Задача 2. Найти сумму нечетных[2] N чисел, где N – натуральное число.
Задача 3. Найти произведение четных чисел, где N – натуральное число.
Задача 4. Найти сумму целых чисел на отрезке 
.
Задача 5. Найти количество целых чисел на отрезке .
Задача 6. Найти произведение отрицательных целых чисел на отрезке .
Задача 7. Найти количество отрицательных целых чисел на отрезке .
Задача 8. Найти сумму натуральных чисел n, которые меньше заданного натурального числа n и которые кратны 7.
Задача 9. Найти сумму целых положительных чисел, больших 20, меньших заданного натурального числа n, кратных 3 и заканчивающихся на 2, 4 или 8.
Задача 10. Начав тренировки, спортсмен в первый день пробежал A км. Каждый день он увеличивал дневную норму на B% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за С дней?
[1] Начальное значение произведения должно быть равно 1, т.е. Р=1
[2] Шаг равен 2