Массивы
Loop
Wend
Итерационные циклы
Рассмотрим новый тип организации циклических программ – итерационные циклы. Данную конструкцию применяют тогда, когда неизвестно сколько раз должен повториться цикл. А чтобы цикл свою работу завершил, необходимо внутри цикла изменять значение переменной, которая используется в проверке до достижения требуемой точности или выполнения заданного условия. Для организации итерационных циклов используются операторы: While...Wend, Do...Loop, которые записываются в следующих форматах:
1) Whileусловие
[тело цикла]
2) Do While условие
[тело цикла]
(Exit Do)
3) Do
[тело цикла]
(Exit Do)
Loop While условие
Условие – логическое выражение, имеющее значение «истина» (когда условие выполняется) и значение «ложь» ( когда условие не выполняется).
Тело цикла – любое количество операторов. Пока условие истинно операторы будут циклически выполняться.
Как только результат проверки условия изменится на «ложь» (его значение равно нулю), VBA обходит цикл и передает управление строке следующей за Wend или Loop. Оператор While ...Wendработает аналогично оператору For...Next. Разница заключается в том, что в конструкции For...Next нужно определить начальное и конечное значения до начала цикла. После чего счетчик цикла просчитает все значения. Цикл While...Wend управляется условиями, которые могут иметь значения «истина» или «ложь», в соответствии с поставленной задачей.
Оператор Do...Loop очень похож на оператор While...Wend, но он более гибкий и в этом его преимущество. Управляющее условие в данном случае может быть размещено как в начале цикла (2), так и в конце (3). Из цикла возможен альтернативный выход. Обе формы записи начинаются с ключевого слова Do и заканчиваются словом Loop. Каждое логическое выражение начинается со слова Wend. При проверке условия в конце операторы тела цикла в отличие от формы проверки сверху, выполняются хотя бы один раз. В этом состоит основное различие двух форм записи условий (2, 3).
В программировании часто возникает необходимость обработки большого количества однородных данных – массивов (последовательностей чисел, временных рядов, матриц и т.п.). Массив – это множество однотипных элементов, объединенных общим именем и занимающих в компьютере определенную область памяти. Элементы массива располагаются в последовательных ячейках памяти, обозначаются именем массива и индексом. Каждое из значений, составляющих массив, называется его компонентой (или элементом массива).
Массив данных а программе рассматривается как переменная структурированного типа. Массиву присваивается имя, посредством которого можно ссылаться как на массив данных в целом, так и на любую из его компонент. Индекс (порядковый номер элемента) записывается в скобках после имени массива.
Например: числовая последовательность четных натуральных чисел 2, 4, 6, …, N представляет собой линейный массив, элементы которого можно обозначить А(1) = 2, А(2) = 4. А(3) = 6, где 1, 2, 3 – номер элемента, а числа 2, 4, 6 – значения элементов массива.
Таким образом, для работы с массивами данных в программировании используются индексированные переменные. Для задания индексированных переменных в VBA применяется оператор Dim (от англ. Dimension – размерность).
Для ввода элементов массива можно использовать:
1) функцию InputBox (это особый тип процедуры VBA, возвращающая значение). Функция InputBox отображает диалоговое окно, содержащее текст, который запрашивает пользователя ввести некоторое значение и текстовое окно для ввода этого значения. Например:
Sub primer()
Dim A(5) As Integer
For I=1 To 5
A(I)=InputBox("Введите элемент массива","Пример")
Next I
. . . . . . . . . . . . . . ..
[продолжение программы]
2) функцию Сells. В этом случае пользователь перед запуском программы вводить данные элементов массива в ячейки рабочего листа Excel. Например:
Sub primer()
Dim A(5) As Integer
For I=1 To 5
A(I)=Cells(I, J) ‘ считывание значения из I – ой строки, J –го столбца
Next I
. . . . . . . . . . . . . . ..
[продолжение программы]
Этот способ более предпочтителен, поскольку он не требует ввода данных с клавиатуры каждый раз при новом появлении диалогового окна.
3) Можно воспользоваться стандартной функцией RND (если значение массива не задано):
Sub primer()
Randomize Iimer
Dim A(5) As Integer
For I=1 To 5
A(I)=Rnd
Next I
. . . . . . . . . . . . . . ..
[продолжение программы]
Во всех случаях, поскольку нам необходимо выполнять последовательность однотипных действий (присвоить значение переменной A(1), затем переменной A(2), затем A(3) и т.д.), заполнение массива проводится в цикле.
Ввод и вывод элементов одномерного массива осуществляется с помощью оператора цикла For…Next.
Пример 6. Ввести массив А из 10 элементов. Найти сумму элементов массива.
В этом примере используется характерный прием программирования – метод накопления: к переменной S последовательно прибавляются отдельные элементы массива; в результате при выходе из цикла переменная S будет содержать сумму всех перебранных элементов. Аналогично можно найти произведение всех элементов (в этом случае начальное значение S должно равняться не нулю, а единице (S=1).
Sub primer_2()
Dim A(10) As Integer
Dim S As Integer
For i = 1 To 10
A(i) = Cells(1, i)
Next i
S = 0
For i = 1 To 10
S = S + A(i)
Next i
Cells(3, 1) = "Сумма элементов массива =" & S
'вывод суммы в 3 строку 1 столбец активного листа Excel