5.4. Циклические программы

Если в программе надо повторить один оператор или последовательность операторов несколько раз, используются операторы циклов. Операторы циклов заключают такой оператор или группу операторов между ключевыми словами начала и конца цикла (For...Next или Do...Loop) и определяют условия повтора выполнения.

Циклы For…Next используются, когда заранее определено, сколько раз должно выполняться повторение группы операторов:

For <переменная> = <нач. знач.> То <кон. знач.> Step <приращение>

<оператор1>

<оператор2>

…

Next

Например, чтобы вывести таблицу значений аргумента х и функции Sin(x) на интервале от 0 до 1 с приращением значения аргумента 0.1, необходимо записать:

For x = 0 To 1 Step 0.1

y = Sin(x)

MsgBox (y)

Next

Если необходимо вывести в этом фрагменте программы результаты в первый столбец, начиная с первой строки на рабочем листе с именем Лист1, то программа может выглядеть так:

i = 1

For x = 0 To 1 Step 0.1

y = Sin(x)

Worksheets(“Лист1”).Cells(i, 1) = y

i = i+1

Next

Когда Step отсутствует, то приращение равно единице.

Циклы типа Do...Loop используются тогда, когда не известно, сколько раз должно быть повторено выполнение группы операторов. Такой цикл продолжает работу до тех пор, пока не будет выполнено определенное условие. Существуют 4 типа операторов цикла Do...Loop:

1. Цикл с ключевым словом While продолжает свою работу, пока условие остается истинным, т. е. условие выполняется, и задается в двух вариантах, представленных ниже.

2. Цикл с ключевым словом Until продолжает свою работу, пока условие является ложным, т. е. условие не выполняется, и задается в двух вариантах, приведенных ниже.

Пример 5.3. Пусть необходимо заполнить первый столбец на рабочем листе результатами вычислений по формуле

при z = {1; 4; 7.5; 9; 15}.

Программа:

Sub CommandButton1_Click()

For i = 1 To 5

z = Val(InputBox("Введите значение z"))

q = Sqr(z ^ 2 + 5 * z) * Log(z + 0.33)

Worksheets(“Лист1”).Cells (i, 1) = q

Next i

End Sub

Пример 5.4. Вычислить значения t по формуле:

t = sin²(x) + e^3-x, x = 3(0.1)4 (х меняется от 3 до 4 с шагом 0,1).

Программа:

Sub CommandButton1_Click()

x = 3 : n = 1

Do While x <= 4

t = Sin(x) ^ 2 + Exp(3 - x)

Worksheets(“Лист1”).Cells (1, n) = t

x = x + 0.1

n = n + 1

Loop

End Sub

В этой программе результаты размещаются в первой строке на рабочем листе Excel.

Отладка программы. Если при вводе оператора строчка помечается красным цветом, значит, имеется ошибка в записи оператора (отсутствуют нужные пробелы, количество закрывающих скобок не равно количеству открывающих, вместо точки в числе стоит запятая и т. п.). Надо проанализировать запись и исправить ошибки.

При возникновении ошибки во время запуска программы (например, деление на 0) происходит прерывание выполнения программы и вывод сообщения о типе ошибки. В окне сообщения можно выбрать режим остановки программы (End) или режим перехода в окно отладки программы (Debug), при котором строка с ошибкой или процедура, где возникла ошибка, будет подсвечена желтым цветом.

Для исправления ошибки можно прервать программу, нажав кнопку Reset на панели инструментов редактора VBA, исправить ошибку и запустить программу заново, нажав кнопку Run .