For Next

Инструкция For…Next организует циклическое выполнение группы инструкций под названием тела цикла. Для принудительного выхода из цикла используется инструкция Exit For.Имеются две разновидности.

Вариант 1.Последовательное изменение значений переменной цикла (счетчика) от начального (начало) до конечного (конец) значения с заданным шагом:

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

тело цикла (инструкции)

Next [счетчик]

Вариант 2.Организация повторения цикла для каждого элемента массива или коллекции объектов. Заранее указывать число элементов не требуется, разрешается использование вложенных циклов.

For Each <элемент> In <группа>

тело цикла (инструкции)

Next [элемент]

элемент — переменная, используемая для ссылки на элементы коллекции однородных объектов (семейства);

группа — имя коллекции (семейства) объектов.

Пример 12

Ввод начального значения, шага изменения и конечного значения ставки налога и суммы налогообложения. Вычислить суммы налога.

Фрагмент программного кода:

taxnalog = InputBox("Введите начальную " & _

"ставку налога", , 0.2)

stepnalog = InputBox("Введите шаг ставки " & _

"налога — не более 0,2", , 0.15)

maxtaxnalog = InputBox("Введите конечную " & _

"ставку налога не более 0,5", , 0.5)

summ1 = InputBox("Укажите начальную сумму " & _

"не более 1000", , 1000)

stepsumm = InputBox("Укажите шаг суммы " & _

"не менее 100", , 200)

maxsumm1 = InputBox("Укажите конечную сумму " & _

"не более 10000", , 2000)

For I = taxnalog To maxtaxnalog Step stepnalog

For j = summ1 To maxsumm1 Step stepsumm

sale = j * (1 + I)

MsgBox " Сумма налога при ставке " & _

I & "для суммы " & j & " равна " & sale

Next j

Next I