Dim x As Long

Option Base 1

Option Explicit

End Sub

Next x

End Sub

Next x

В процедурі замість номера елемента масиву просто використовується значення змінної циклу x, і, таким чином, перебираютьсявсі елементи масиву.

Наступним кроком виведемо значення елементів масиву Number в текстове поле txt_output за допомогою процедури події Click для елемента управління cmd_output.

Текст процедури висновку елементів масиву:

Private Sub cmd_output_Click()

For x = 1 To 10

txt_output.Text = txt_output.Text & Number(x) & vbCrLf ‘ vbCrLf є

‘ константою VB, яка позначає перехід на новий рядок

Результат роботи програми зображений на рис. 4.8.

Таким чином, наш одновимірний масив є аналогом таблиці з однією строчкою даних:

1 –й елемент	2 –й елемент	3 –й елемент	4 –й елемент	5 –й елемент	6 –й елемент	7 –й елемент	8 –й елемент	9 –й елемент	10 –й елемент

Рисунок 4.8 – Робота програми створення і виведення елементів одновимірного масиву

Приклад програми 2. Ускладнимо попередню задачу, хай необхідно створити двовимірний масив, щоб в ще одну строчку записати множник, на який множиться число 8. Змінимо програмний код розділі General – Daclarations на наступний:

Dim Number(10, 2) As Long ‘Описана друга розмірність масиву

Текст процедури створення елементів масиву:

Private Sub Form_Load()

Text1.Text = ""

For x = 1 To 10

Number(x, 1) = x

Number(x, 2) = x * 8

Дата добавления: 2015-05-24