Реферат: О пользе циклов

Next x идём в начало цикла

Visual Basic выполняет цикл For...Next в следующей последовательности:

1. Присваевает переменной х значение 1.

2. Сравнивает присвоеное значение икса и то, которое надо присвоить (3). Если х больше, либо равно трём прекращает своё выполнение, при условии, что заданные "шаги" (Step) не отрицательны.

3. Выполняет операторы в теле цикла.

4. У величивает переменную x на один, т.к. шаги не заданы.

5. Повторяет пункты со 2 по 4.

Ещё один пример (печатает на форме имена всех имеющихся шрифтов):

1. Создаём форму.

2. Открываем окно Code.

3. Выбираем событие Click

4. Вписываем:

Dim I As Integer объявляем меременную - счётчик

запускаем цикл столько раз, сколько имеется шрифтов

(Screen.FontCount возвращает кол-во всех шрифтов)

For I = 0 To Screen.FontCount

печатает каждое имя

Print Screen.Fonts(I)

Next

Кстати в конце цикла положено ставить имя переменной - счётчика. Вообще-то это необязательно, но, во-первых, это, так сказать, правило хорошего тона, а, во-вторых, так Вы не запутаетесь.

Кострукцин For Each...Next.

Цикл For Each...Next похож на цикл For...Next, но он повторяет группу операторов для каждого элемента из набора объектов или из массива. О его пользе судить я не могу, но могу только сказать, что мне он ещё ни разу не пригодился. Хотя я ничего полезного-то и не делал ;-)).

Короче, если Вам нужно изменить за раз все элементы массива или коллекции, Вы можете использовать этот цикл. Например вот код, который:

1. Создаёт массив.

2. Увеличивает все элементы на один.

Итак, пишем в модуль:

Sub Main()

Dim a(6) As Integer объявляем массив из шести ячеек

объявляем "универсальную" переменную, которую