Page 86 - 4588

RedimPreserveDay(1 To20) ' змінює розмір масиву до 20 ел.
' зберігаючи вміст
DimB AsVariant ' оголошує змінну типу Variant
RedimB(50) AsByte ' створює масив з 50 змінних
'типу Byte

' усередині змінній типу Variant
Розмірність масиву може бути записана у вигляді
арифметичного виразу, значення якого має бути додатним
числом або дорівнює нулю. Якщо арифметичний вираз має
дробове значення, то воно заокруглюється, і ціла частина
визначає розмір масиву.
Уведення-виведення масивів
Заповнити масив, тобто визначити значення елементів
масиву можна такими способами:
 за допомогою оператора привласнення;
 безпосереднім введенням з клавіатури;
 підготовкою і введенням даних з текстового файлу;
 використання датчика випадкових чисел;
 заповненням масиву за допомогою стандартних
функцій
Приклад 1. Заповнити одновимірний масив
безпосереднім введенням з клавіатури. Результат помістити в
стовпець З робочої книги Excel.
SubInputArray1()
'***********************************************
********
' Введення з клавіатури
'************************************************
*******
DimA(10) AsInteger
DimTitleAsString
Worksheets("Ліст1").Cells(1, 1) = "МасивА:"
Title = "Заповнення одновимірного масиву"
Fori = 1 To10
A(i)= InputBox("Введіть A(" & i & "):", Title)
Worksheets("Ліст1").Cells(i + 1, 1) = A(i)
Nexti
End Sub

85