Масиви
Іноді
буває так потрібні десятка два змінних і, якщо б не масив, пріщлось б
писати
Dim A As Integer
Dim B As Integer
.......
.......
.......
Dim X As Integer
Dim Y As Integer
Але
немає! Для цього є масиви! Але для того, щоб його використовувати сначало треба
його оголосити, наприклад:
Dim
A (20) As Integer
Це
рівносильно двадцяти змінним! Але по-моєму так зручніше:)? Тобто цим ми
виділили двадцять комірок пам'яті.
Масив
являє собою набір значень, пов'язаних з одним ім'ям. Масиви бувають
одновимірними (список значення), двовимірними (таблиця значень), але при
необхідності роботи зі складними математичними моделями, наприклад,
тривимірними фігурами, Ви можете задати і більшу кількість вимірів масиву.
Масиви можуть бути так само динамічний, тобто не містити певний
кількість осередків. Декларуються вони так:
Dim
ABC () As ... тобто в дужках нічого не вказується
Щоб
встановити розмірність масиву потрібно використовувати ключове слово ReDim, яке
перерозподіляє масив, стираючи старі осередки.
Якщо
Вам потрібно перерозподілити масив, залишивши старі осередки треба використовувати
ключове слово Preserve.
Наприклад,
у Вас є вісім чисел і для кожного потрібна змінна. Якщо вони однакового
типу, то можна створити масив і привласнити ці значення (
див. примітки
):
Dim ABC (8) As Integer
ABC (0) = 123
ABC (1) = 5
ABC (2) = 87
ABC (3) = 4
ABC (4) = 99
ABC (5) = 43
ABC (6)
= 7
ABC (7)
= 21
ABC (8)
= 11
Цей
масив графічно можна представити так:
Осередок
0
1
2
3
4
5
6
7
8
Значення
123
5
87
4
99
43
7
21
11
Припустимо,
що Ви пишете програму, яка створює палітри і вона повинна запитати
кількість квітів, які вона повинна змішати і які (Ви тільки сильно не
радійте наступний приклад нічого заважати не буде, він тільки запросить кольору
;-)):
Sub
Main ()
Dim
MyArray () As Stringоб'являем масив, що містить кольори
Dim
x As Integer оголошуємо змінну,
що містить кількість квітів
Dim
y As Integer оголошуємо
змінну-лічильник
Dim
Msg As String оголошуємо змінну,
що містить всі назви квітів
x
= InputBox ( "Введіть число квітів") отримуємо кількість квітів
перерозподіляємо
в масиві стільки клітинок, скільки кольорів ми отримали
ReDim
MyArray (x)
запускаємо
цикл, який повинен повторитися стільки разів скільки всього
квітів
For
y = 1 To x
прісваеваем кожному осередку колір
MyArray (y) = InputBox ( "Ведіть колір
номер "& y)
Next
запускаємо
цикл, який збирає всі кольори в одну змінну
For
y = 1 To x
тепер ми витягуємо всі значення
Msg = Msg + MyArray (y) + Chr (13) + Chr (10)
Next
MsgBox
Msg виводимо всі кольори, які ввели
End
Sub
Тут
начебто все просто! Тепер двовимірний масив. Але не лякайтеся, тут не менше
просто, тільки з незвички можна трохи заплутатися :-).
Декларуються
вони так:
Dim
ABC (1, 8) As String
Це
виходить така собі таблиця: два відділення на десять. Приблизно так:
0
1
2
3
4
5
6
7
8
0
червоний
помаранчевий
жовтий
зелений
блакитний
синій
фіолетовий
бірюзовий
пурпурний
1
коричневий
сірий
чорний
білий
рожевий
ліловий
вишневий
прозорий
матовий
І
все це привласнити таким чином:
ABC (0,
0) = "червоний"
ABC (0,
1) = "помаранчевий"
ABC (0,
2) = "жовтий"
і
т.д. Ну, дуже нагадує систему координат! А щоб викликати, наприклад, ліловий
потрібно написати так:
Color
= ABC (1, 5) змінної color прісваеваем рядок "пурпурний"
тривимірну
накреслити таблицю я не зможу, але думаю, що і там все зрозуміло. Оголошується він,
наприклад так:
Dim
ABC (10, 4, 7)
Таким
чином вже создется як би геометричний прямокутник довжиною 10, шириною - 4
і висотою - 7. Всього всередині 440 осередків (11 * 5 * 8).
Примітка: Ви повинні пам'ятати, що оголошуючи масив з, наприклад,
трьома осередками, в дужках Ви повинні писати 2,
Dim
ABC (2) As Variant
тому
Ідекс осередків починається з нуля: 0, 1, 2 - в сумі виходить три. Якщо в дужках
виявиться цифра три, то осередків буде чотири: 0, 1, 2, 3. Якщо Вам здається це
незручним, то рядком (в самому верху форми або модуля):
Option
Base 1
Ви
як би зрушимо масив вгору на один, і нижньою межею стане не 0, а 1. Також
є інший спосіб:
Dim
ABC (1 To 2)
Результат
однаковий!
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://visualprogs.narod.ru/
