Факультет Математики и Информатики ГрГУ: For...Next

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Основы программирования >> Управляющие конструкции >> Операторы циклов >> For...Next

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

For...Next

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

Приведенная ниже процедура Sub генерирует сигнал заданное число раз:

Sub BeepSeveral()
     numBeeps = lnputBox("How many beeps")
     For counter = 1 To numBeeps
          Beep
     Next counter
End Sub

По умолчанию (как в этом примере) счетчик увеличивается на каждой итерации цикла на 1. Ключевое слово Step позволяет изменить шаг приращения. Если Вы укажете отрицательное число, счетчик будет уменьшаться на каждой итерации цикла. Например, здесь шаг приращения счетчика равен 2:

Sub ClearArray(ByRef ArrayToClear())
     For i = LBound(ArrayToClear) To UBound(ArrayToClear) Step 2
          ArrayToClear(i) = 0
     Next i
End Sub

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

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997