Dim x As Long. Перший аргумент усередині дужок представляє рядки, а другий – стовпці

Dim Number(10) As Long

Option Base 1

Option Explicit

Dim a1(10, 10) As Integer

Dim Х(10) As Single

Dim a1(1 To 10, 1 To 10) As Integer

Перший аргумент усередині дужок представляє рядки, а другий – стовпці.

В другому прикладі масив а1 фіксованого розміру описується як масив типу Integer, що має 10 рядків і 10 стовпців:

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

З урахуванням того, що нижня межа рівна 0, в масиві Х при такому описі вже не 10, а 11 членів, в масиві а1 11 рядків і 11 стовпців (з'являється нульовий член).

Нижня межа всіх масивів в програмі, оголошуваних однією розмірністю (верхня межа) за умовчанням буде встановлена рівною 1, якщо в головному розділі General - Daclarations розмістити оператор Option Base 1. Допустимим значенням для Option Base є тільки 0 і 1. Для розглянутих прикладів при Option Base 1 в масиві Х знов буде 10 членів, в масиві а1 10 рядків і 10 стовпців.

Як і при описі скалярних змінних, якщо тип при описі масиву не задається, мається на увазі, що елементи масиву мають універсальний тип Variant.

Приклад програми 1. Нехай необхідно створити масив для зберігання результатів таблиці множення на 8. Оскільки на нуль множити немає сенсу, прив'яжемо перший елемент масиву до одиниці і оголосимо змінну x для організації циклу For... Next.

Створимо стандартний проект, в який додасться автоматично форма.

В розділі General – Daclarations програмного коду форми розмістимо наступні оператори:

Оскільки ми використовували оператор Option Base 1, то елементи масиву нумеруються з одиниці.

Після підрахунку значень елементів масиву необхідно вивести їх значення на екран, для користувача. Для цієї мети передбачимо у формі текстове поле і командну кнопку (див. рис. 4.7).

Розмістимо у формі елемент управління Text1. Для елемента Text1 встановимо наступні значення властивостей:

- властивість Name значення txt_output;

- властивість Text - очистимо значення;

- властивість MultiLine значення True;

- властивість ScrollBars значення 2 – Vertical.

Також розмістимо командну кнопку Command1, для неївстановимо наступні значення властивостей:

- властивість Name значення cmd_output;

- властивість Caption значення Вивести масив.

Для форми також встановимо значення властивостей:

- властивість Name значення frm_output;

- властивість Caption значення Програма створення і виведення елементів масиву.

Рисунок 4.7 – Програма створення і виведення елементів масиву

В процедурі події Form_Load (завантаження форми) напишемоцикл, який присвоюватиме кожному елементу масиву значення, відповідне його номеру, помноженому на 8. Подію для написання процедури виберемо у вікні коду в полі зі списком Procedure для об'єкту, вибраного в полі Object - Form.

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

Private Sub Form_Load()

txt_output.Text = ""

For x = 1 To 10

Number(x) = x * 8

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