Массивы

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

Дата добавления: 2014-10-23