На этом шаге мы подолжим рассмотрение циклов и остановимся на цикле For ... Next.
При решении задачи на предыдущем шаге лучше всего использовать цикл For ... Next, так как известно начальное и конечное значения суммирования.
Общий вид этой конструкции цикла следующий:
For <счетчик> = <нач.знач.> То <кон.знач.> Step <приращ.> <операторы> Next
Вначале выполнения этого цикла переменной счетчик присваивается значение, заданное параметром нач.знач. Выполняются операторы цикла, и значение переменной цикла увеличивается или уменьшается (в зависимости от знака) на величину приращ. Осуществляется проверка, не превысило ли (или не стало меньше) новое значение счетчика значение параметра кон.знач. Если нет, то итерации повторяются, если да, то цикл завершает свое выполнение.
Параметр приращ. цикла For...Next является необязательным. Если он не задан, то по умолчанию переменная счетчик увеличивается на 1.
Замечание. Следует аккуратно задавать все три параметра цикла For...Next. Они должны быть согласованы: если приращение положительно, то начальное значение должно быть меньше или равно конечному значению; если приращение отрицательно, то конечное значение должно быть меньше или равно начальному значению. Если это не так, то цикл For...Next не выполняется ни одного раза.
Преобразуем пример предыдущего шага с использованием цикла For ... Next:
<HTML>
<HEAD>
<TITLE>Пример №1</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Button1_OnClick()
Sum = 0
For i = 1 To 10
Sum = Sum + i
Next
Alert "Сумма при использовании цикла For...Next: "&Sum
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY>
<H2>Демонстрация цикла For...Next</H2>
Щелчок по кнопке выводит сумму первых 10 натуральных чисел.
<FORM>
<INPUT TYPE="BUTTON" NAME="BUTTON1" Value="Цикл For...Next">
</FORM>
</BODY>
</HTML>
Результат работы этого приложения изображен на рисунке 1:
Рис.1. Результат использования цикла For ... Next
Далее рассмотрим цикл For Each ... Next.
