End Sub. Оператор цикла For Next

Оператор цикла For... Next

Понятие цикла

Лекция № 26

При разработке программ часто приходится изменять порядок следования операторов. Только в очень простых программах операторы выполняются один за другим – управление передается последовательно, от оператора к оператору. На практике необходимые средства для изменения порядка следования операторов, другими словами, передачи управления – обеспечивают операторы цикла и условные операторы.

Часто при решении задач приходится многократно вычислять значения по одним и тем же математическим зависимостям для различных значений входящих в них величин. Такие многократно повторяющиеся участки вычислительного процесса называются циклами. Использование циклов позволяет существенно сократить объем схемы алгоритма и длину соответствующей программы. Различают циклы с заданным и неизвестным числом повторений. К последним относятся итерационные циклы, характеризующиеся последовательным приближением к искомому значению с заданной точностью.

Для организации цикла необходимо выполнить следующие действия:

1) задать перед циклом начальное значение переменной, изменяющейся в цикле;

2) произвести необходимые действия;

3) изменить переменную на величину шага;

3) проверить условие окончания (или повторения) цикла;

4) переходить к п.2, если цикл не закончен.

Последние четыре действия повторяются многократно. Переменная, изменяющаяся в цикле, называется параметром цикла. Действия, повторяемые многократно, называются телом цикла.

Переменная, изменяющаяся в цикле, называется параметром цикла. В одном цикле может быть несколько параметров. Переменную, значения которой вычисляются машиной и хранятся в одной и той же ячейке памяти, называют простой переменной, а переменную, являющуюся элементом массива, – переменной с индексом. Следует иметь в виду, что параметром цикла является при использовании простой переменной сама переменная, а при использовании переменной с индексом – ее индекс.

В VBA циклы можно задать двумя способами:

– с использованием оператора цикла For... Next;

– с использованием оператора цикла Do... Loop.

Цикл For...Next используется, когда необходимо повторить действие или ряд действий заданное количество раз, известное до начала выполнения цикла.

Цикл For...Next имеет следующий синтаксис:

For счетчик = Начало To Конец [ Step Шаг]

[Операторы цикла]

Next счетчик

счетчик – любая переменная, по которой организован цикл.

В квадратных скобках указан не обязательный параметр.

По умолчанию VBA увеличивает счетчик на 1 каждый раз при выполнении операторов в цикле (шаг по умолчанию равен 1). Если нужно другое значение шага надо включать в оператор For необязательное ключевое слово Step.

При выполнении цикла For...Next VBA поступает следующим образом:

– присваивает значение Начало счетчику;

– выполняет все операторы, представленные с помощью Операторы цикла, пока не достигнет ключевого слова Next, которое указывает VBA на то, что достигнут конец тела цикла;

– изменяет счетчик на величину Шаг (если включается необязательное ключевое слово Step); если Step не определено, то VBA увеличивает переменную на 1;

– возвращается к началу цикла и сравнивает текущее значение счетчика со значением Конец. Если значение счетчика меньше или равно Конец, VBA выполняет цикл снова. Если значение счетчика больше значения Конец, VBA продолжает выполнение кода с первого оператора после ключевого слова Next.

Если Шаг >0, то такой цикл называется циклом с возрастающим счетчиком, если Шаг <0 – цикл с убывающим счетчиком. В последнем случае Начало должно быть больше Конец.

Цикл For...Next выполняется только в том случае, если начальное значение счетчика цикла плюс шаг изменения значения счетчика меньше или равно конечному значению счетчика. Если конечное значение счетчика меньше начального значения, то шаг должен быть отрицательным. Цикл выполняется до тех пор, пока текущее значение счетчика не выйдет за рамки конечного значения. При завершении текущего цикла к значению счетчика прибавляется значение шага. Если начальное значение и конечное значение счетчика имеют одно и то же значение, цикл выполняется один раз, вне зависимости от значения шага. Если шаг равен нулю, цикл продолжается неопределенное количество раз.

Пример 14 Построить и заполнить таблицу значениями функции на интервале с шагом 4°

Sub Demo_ForNext()

' Объявляем начало, конец цикла, шаг

Dim xStart, xEnd, xStep As Integer

Dim x As Integer

Dim i As Integer

Dim xradian, y As Single

' Чтение числовых значений из рабочего листа Excel

xStart = Cells(2, 2)

xEnd = Cells(3, 2)

xStep = Cells(4, 2)

' Номер строки заголовка таблицы значений функции

i = 1

For x = xStart To xEnd Step xStep

' Вычисляем значение x в радианах

xradian = 3.14 * x / 180

' Вычисляем значение функции

y = (2.51 * Sin (xradian) / (2 + 3 * Cos (xradian)) ^ (1 / 3))

i = i + 1

' Передаем полученные значения в рабочий лист

Cells(i, 4) = x

Cells(i, 5) = y

Next x

При исполнении оператора For...Next автоматически осуществляется проверка условия продолжения цикла, изменяется значение аргумента на величину шага и осуществляется переход к строке, следующей за строкой с оператором FOR, если величина переменной цикла меньше или равна ее конечному значению.

Дата добавления: 2014-01-04