Мал. 7.8. Використання циклу For..Next.

Цей фрагмент виводить на поточній формі значення кожного елементу цілого масиву X (числа 0,1 і 2 використовуються як посилання на елементи). Щоб створений масив був доступний на рівні модуля, оголосите його з ключовим словом Dim в секції(Declarations) модуля. Якщо ж масив має бути доступний на рівні додатка, оголосите його з ключовим словом Public. Наступний приклад показує, як працювати з масивами:

1. Створіть проект типу Standard EXE.

2. Видалите з нового проекту форму Form1. Для цього слід клацнути на рядку Forml правою кнопкою миші у вікні проекту і вибрати команду Remove Forml з контекстного меню.

3. Додайте в проект новий модуль - клацніть правою кнопкою миші у вікні проекту і виберіть команду Add > Module з контекстного меню.

4. У діалоговому вікні Add Module виберіть значок ModuLe.

5. У вікні програми модуля Module1 додайте наступну процедуру:

Sub Main()

Dim x(7) As Integer

Dim i As Integer

Dim txt As String

‘ Заповнити масив бітовими значеннями

For i = 0 To 7

x(i) = 2 ^ i

Next

‘ Вивести масив

For i = 0 To 7

txt = "Елемент масиву " & Str$(i) & " ="

txt = txt & x(i)

Next

End Sub

6. Запустіть програму і простежите за вікном відладки.

У першій частині фрагмента оголошуються змінні, необхідні для роботи програми. Масив x повинен містити 8 елементів (з індексами від 0 до 7). Змінна i використовується в циклах For..Next, а в рядку txt виконується форматування результату.

Перший цикл For..Next заповнює масив. Відповідно до формули

x(i) = 2 ^ i

кожному елементу привласнюється значення чергової міри двійки. Не турбуйтеся про математичну сторону що відбувається - тут обчислення використані лише для прикладу.

Останній цикл For..Next форматує змінну txt, а команда Debug. Print виводить її у вікні відладки.

Динамічні масиви

Нерідко розмір масиву (тобто кількість елементів, що зберігаються в нім) не може бути визначений заздалегідь. У такому разі слід оголосити порожній масив. Масив, який на початку свого життєвого циклу не містить жодного елементу, називається динамічним. Він оголошується майже так само, як і звичайний масив, за винятком того, що в процедурі можна використовувати як ключове слово Dim, так і Static:

Dim Y() As Integer

Було б марнотратне створювати масив свідомо більшого розміру, чим вам потрібно. Щоб вийти з положення, слід створити динамічний масив, що не містить жодного елементу (см вищий), і потім додавати в нього елементи у міру потреби. Ця методика особливо корисна при роботі з великою кількістю елементів.

Потім в масив необхідно додати елементи, в яких зберігатимуться значення. Для цього використовується оператор ReDim, який може зустрічатися тільки в процедурах,:

ReDim Y(5)

Створеним елементам слід присвоїти значення. Пізню кількість елементів масиву знову можна змінити:

ReDim Y(7)

Після виконання цього оператора усі значення, що зберігаються в масиві, втрачаються. Щоб зберегти їх, користуйтеся ключовим словом Preserve:

ReDim Preserve Y(7)