Оператор цикла For /Next представляет собой цикл типа арифметической прогрессии.
Синтаксис:
For V=a1 To a2 [Step a3] - заголовок цикла
[ Операторы]
[Exit For] - тело цикла
[ Операторы]
Next [V] - конец цикла
For - для;
To - до;
Step - шаг;
Next – следующий.
V – параметр (счетчик) цикла – переменная.
a1,a2,a3 – арифметические выражения:
a1 – начальное значение параметра цикла;
a2 – конечное значение параметра цикла;
a3 – шаг изменения параметра цикла (число, которое прибавляется к параметру цикла).
В качестве параметра цикла можно использовать как вещественные, так и целые переменные.
Пример.
Private Sub Button1_Click()
Dim s As Single, i As Integer
For i = 1 To 10 Step 1
s = s + i ^ 2
Next i
TextBox1.Text=CStr(s)
End Sub
Порядок выполнения оператора цикла:
-
Вычисляются значения арифметических выражений a1,a2,a3.
-
Параметру цикла присваивается начальное значение.
-
Проверяется условие окончания цикла. Если это условие не выполнено, то переходим к п.4. В противном случае управление передается оператору, следующему за оператором цикла.
-
Выполняются операторы, составляющие тело цикла.
-
Изменяется значение параметра цикла. К значению параметра добавляется шаг. Затем счет повторяется с п.3.
При организации циклов необходимо учитывать следующее:
-
Войти в область действия цикла можно только через его заголовок.
-
В общем случае, при выходе из цикла, параметр цикла не определен. Для альтернативного выхода из цикла используется оператор Exit For.
-
Переменные, входящие в заголовок цикла, могут изменять свои значения внутри области действия цикла. При этом изменение в теле цикла начального значения параметра цикла, конечного значения параметра цикла и шага не влияет на количество повторений операторов тела цикла и на изменение параметра цикла
-
Если шаг равен 1, то можно воспользоваться сокращенной формой записи заголовка цикла For V=a1 To a2
-
В операторе конца цикла параметр цикла может быть опущен, т.е. допустима запись Next