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

Dim Element As Variant

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

For x = 0 To UBound(a)

a(x) = x присваеваем каждой ячейке значение

Debug.Print a(x) выводим на экран, только что полученое значение

Next

запускаем цикл For Each..Next, где будет изменяться Element в массиве а

For Each Element In a

Element = Element + 1 увелчиваем каждый элемент на один

Debug.Print Element вывод на экран увеличенный элемент

Next в начало цикла

End Sub

В окне Immediant появятся цифры от 0 до 6 - это бывшие значения массива а, и следом цифры от 1 до 7, а это новые значения, увеличенные на один.

И ещё один пример, где все объекты на форме двигаются в право. Но, во-первых, расскажу что такое Controls. Controls - это группа, где храняться все объекты формы. Набор Controls создаётся автоматически при открытии новой формы и пополняется при добавлении новых объектов.

Чтобы сослаться на какой-нибудь объект, нужно написать Controls(Index). Внимание! Важно знать, что Visual Basic хранит все объекты в обратном порядке их создания. Например, если у Вас на форме был создан Text1, потом Label1, а потом Combo1, то Combo1 будет иметь индекс 0, Label1 - 2, и Text1 будет иметь 3. Неудобно, не правда ли? А теперь пример:

1. Создайте форму.

2. На ней создайте кучу объектов.

3. Щёлкните два раза на форме и откройте окно Code.

4. Выберите событие Click.

5. Впишите следующее:

Private Sub Form_Click()

Dim Element As Variant

For Each Element In Controls

Element.Left = Element.Left + 100

Next Element

End Sub

Ну, вот и поползли все объекты влево. Только будьте осторожны, если вы будете кликать по объектам, а не по форме, они будут стоять как вкопанные.