Реферат: Массивы

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 присваеваем строку "лиловый"