1.2. Введення елементів масиву

Спосіб І

Процедура введення значень елементів масиву розбивається на два етапи:

1. Введення розмірності масиву, тобто тієї кількості елементів масиву, з якою користувач хоче працювати. Це значення не повинно перевищувати значення Вз, зазначеного при його оголошенні.

2. Введення значень елементів масиву. Якщо ігнорувати цей етап, у зарезервованих при оголошенні масиву комірках пам'яті будуть перебувати нульові значення (для числових типів), а не ті, з якими хотів би мати справу користувач.

Наприклад, для масиву x, оголошеного як Dim x(1 To 10) As Byte, можливе введення не більше 10 цілих чисел, значення яких не перевищує 255. Тобто введене значення розмірності масиву N повинне бути не більше 10 і x(i) – будь-яке додатнє число до 255 включно, тому що тип елементів масиву оголошений Byte. Якщо при введенні даних ввести некоректні значення, програма завершить свою роботу аварійно.

Процес введення елементів масиву графічно представляється в такий спосіб:

де N – розмірність масиву, а X  – ім'я масиву, елементи якого вводяться.

У програмі ці дії реалізуються в такий спосіб:

Sub Pr()

Dim N As Byte

Dim X(1 To 25) As Integer

N=InputBox(“Скільки чисел у масиві?”,"Введення розмірності")

For i=1 To N

X(i)=InputBox(“Введи X(“& i &”) - ий елемент масиву”)

Next i

End Sub

При виконанні цього фрагмента програми, відбувається наступне:

1. У пам'яті комп'ютера відповідно до оголошення

Dim X(1 To 25) As Integer

виділяється вільна область обсягом 50 байт, тому що кожне ціле число займає 2 байти, а максимальна кількість елементів у масиві X = 25. Даній області пам'яті дається ім'я X, а вся область розділяється на 25 компонентів по 2 байти кожний. Всім елементам масиву присвоюється нульове значення.

2. Оператором

N=InputBox(“Скільки чисел у масиві?”,"Введення розмірності")

визначається конкретна кількість компонентів з області пам'яті X, з яким хоче працювати користувач програми.

3. За допомогою циклу

For i=1 To N

X(i)=InputBox (“Введи x(“& i &”) - ий елемент масиву”)

Next i

Здійснюється почергове наповнення N компонент області пам'яті X конкретними значеннями.

Спосіб ІІ

Значення елементів масиву безпосередньо вводяться на початку роботи програми. Масив при цьому оголошується як Variant

Option Base 1 ‘ Цей оператор має вводитись в секції

‘ ( General ) ( Declarations )

Private Sub Command1_Click()

Dim a As Variant

a = Array(2, -3, 6, -8, 0, 4, -1, 5, 9, 7, -2, 8)

Наприклад, для масиву а, оголошеного як Dim a As Variant вводиться 12 значень. Тобто для другого елементу масиву а введене значення -3 (а(2)=-3). При цьому розмірність масиву буде відповідати кількості введених значень.

Спосіб ІІІ

Option Base 1 ‘ Цей оператор має вводитись в секції

‘ ( General ) ( Declarations )

Private Sub Command1_Click()

Dim a(15)

n = 0

For i = 1 To 15

a(i) = Val(Text1(n))

n = n + 1

Next

Примітка: на формі створюється масив з п’ятнадцяти елементів керування Text1, які мають індекси Text1(0),Text1(1),...Text1(14), кожному з яких (через властивість Text ) присвоюється значення одного з елементів заданого масиву А(15).