Dim R() As Single

Потім в програмі необхідно обчислити необхідний розмір масиву в деякій змінній, наприклад, n і змінити розмір динамічного масиву за допомогою інструкції ReDim.

Синтаксис:

ReDim <Ім’яЗмінної>(<індекси>)[ As < Тип>][,<Ім’яЗмінної>(<індекси>)[ As Тип>]] …

Нариклад,

ReDim R(1 to n) встановлюються межі динамічного масиву від 1 до n. Якщо, наприклад, n=10, то встановлюються межі динамічного масиву від 1 до 10.

Для вирішення задачі по роботі з масивом потрібно виконати наступне:

1. масив треба оголосити, як динамічний, тобто описати масив з завданням типу елементів динамічного масиву оператором Dim без вказання розміру

2. обчислити (увести)необхідний розмір масиву в деякій змінній, наприклад, n

3. змінити розмір динамічного масиву за допомогою оператора ReDim

4. здійснити введення \ виведення елементів масиву

5. обчислити масив

6. вивести результати обчислень.

Уведення елементів одновимірного масиву у програму можна здійснити за допомогою одного з наведених способів:

1. Уведення елементів одновимірного масиву за допомогою функції InputBox:

For i = 1 To n

a(i) = Val(InputBox(“Уведіть елемент масиву А”)

Cells(2, i) = a(i) ‘Виведення елементів масиву на робочий лист

Next i

2. Уведення елементів одновимірного масиву за допомогою генератора випадкових чисел Randomize та функції Rnd():

Randomize

For i = 1 To n

b(i) = Rnd() * 10 ‘ Уведення додатних елементів масиву

b(i) = (-1) ^ Int(Rnd() * 10) * (Rnd() * 10) ‘Уведення від’ємних елементів масиву

Cells(5, i) = b(i) ‘ Виведення елементів масиву на робочий лист

Next i

‘Range(Cells(5, 1), Cells(5, n)) = b ‘Виведення елементів масиву на робочий лист у діапазон (другий спосіб)

3. Уведення елементів одновимірного масиву за допомогою зчитування елементів з комірок робочого листа.

Для цього потрібно попередньо записати елементи у комірки на робочому листі.

For i = 1 To n

a(i)= Worksheets(“Лист1”).Cells(3, i) ‘Зчитування елементів з Лист1, записаних у 3-му рядку, починаючи з стовпця А

Next i