5 Инструкции для выполнения циклов операции повтора Цикл

5. Инструкции для выполнения циклов (операции повтора) Цикл – это последовательность повторяющихся операций В VBA имеется несколько операторов повтора. For…Next – повторяет набор инструкций заданное число раз For Each…Next – повторяет набор инструкций для каждого объекта семейства

While…Wend - повторяют набор Do While …Loop - повтор инструкций, пока условие выполняется Do Until…Loop - повторяет набор инструкций, пока не начнет выполняться условие With…End With - позволяет провести несколько операций с одним объектом

Оператор For (для)…Next (следующий) Имеет синтаксис Начало Конец Шаг Имя For = To Step цикла переменной Операторы тела цикла Next

1. 2. 3. 4. 5. Работает так: Переменной цикла присваивается начальное значение. Выполняются операторы тела цикла. Оператор Next возвращает управление оператору For. Оператор For увеличивает значение переменной цикла на шаг и проверяет условие окончания цикла. При выполнении условия происходит переход к оператору, следующему за Next. При невыполнении повторяются пп. 2 – 5.

Пример Вычислить Y = X 3 для Х = 1, 3, 5, …, 101 Решение

……

Пример Вычислить Z = Cos x для х = 1, 2, 3, … 50 Решение Если шаг цикла равен единице, ключевое слово Step можно опустить

Пример 3 Дан массив А(70). Вычислить массив В(70), каждый элемент которого равен B(I) = 0. 8 *A(I) Массивы описывают в начале программы с использованием ключевого слова Dim и указанием их размерности. Для перебора всех элементов массива нужно организовать цикл.

Решение

I=1 В(1) = 0. 8*А(1) I = I + 1=2 (<70) В(2) = 0. 8*А(2) I = I + 1=3 (<70) В(3) = 0. 8*А(3) ……………………. . I = I + 1=70 (=70) I = I + 1=71 (>70) В(70) = 0. 8*А(70) Конец цикла

Вычисление суммы элементов массива Алгоритм суммирования: q Обнулить ячейку для хранения суммы; q Организовать цикл по перебору элементов массива; q На каждом шаге цикла добавлять к сумме очередной элемент массива.

Пример. Вычислить сумму элементов массива С(90). Результат поместить в ячейку D 8 листа ЭТ.

Вычисление произведения элементов массива Алгоритм перемножения: q Записать в ячейку для хранения произведения единицу; q Организовать цикл по перебору элементов массива; q На каждом шаге цикла домножать произведение на очередной элемент массива.

Пример. Вычислить произведение элементов массива D(150)

Контрольный пример. Дан массив А = (7, -1, 0, 6, 2, -5) Какой результат будет получен в результате работы фрагмента программы? S=0 For I = 1 To 6 If A(I) > 2 Then S = S + A(I) End If Next Варианты ответов: A. 15 B. 9 C. 13 D. 7

Считывание массива из ЭТ Пример. Вычислить сумму элементов массива С, значения которого хранятся в ячейках A 1: F 1 листа ЭТ с именем Исходные. Сумму записать в ячейку F 9 листа Результат. Решение 1. Для определения размерности массива рассмотрим фрагмент ЭТ

2. Для считывания различных элементов массива из Excel необходимо обращаться к ЭТ, изменяя адреса ячеек. В этом случае для обращения к ячейкам используется ключевое слово Cells(I, J). Здесь I – номер строки; J – номер столбца. Например, Cells(1, 2) Range(“B 1”) Cells(2, 3) Cells(4, 1) Range(“C 2”) Range(“A 4”)

В примере номер строки зафиксирован (I=1), а номер столбца J = 1, 2, … , 6. 3. Переименовываем листы Excel: § Щелкнуть правой клавишей мыши по Лист 1; § Команда Переименовать; § Ввести Исходные; § Аналогично Лист 2 переименовать в Результат. 4. Пишем программу

5. Запустить программу на выполнение (F 5). 6. Перейти в ЭТ. 7. Перейти на лист Результат.

Пример Вычислить произведение элементов массива D, размещенного в ячейках В 1: В 10 листа ЭТ с именем Сведения. Результат записать в ячейку А 7 листа Новый. Решение 1. Создаем фрагмент ЭТ: Очевидно, при обращении к ячейкам зафиксирован номер столбца (J=2), а номер строки I=1, 2, …, 10) 2. Переименовываем два листа ЭТ в Сведения и Новый.

3. Пишем программу 4. F 5 – на листе Новый, в ячейке А 7 число 59049

Контрольный пример Укажите адрес первой ячейки ЭТ, в которую производит запись данный фрагмент программы For J = 1 To 15 Cells (4, J) = Y Next Варианты ответов: A. D 4 B. A 4 C. A 1 D. D 1