Dim A (100) As Integer

При таком описании массива его элементы индексируются (т. е. нумеруются), начиная с нуля.

Чтобы задать определенную размерность массива можно использовать зарезервированное слово To.

Элементы массива индексируются с того номера, с которого явно указан интервал изменения нижней и верхней границы номеров элементов массива:

Dim A (1 To 100) As Integer

Перед обработкой массива его необходимо заполнить (ввести). Массив можно считывать с рабочего листа Excel, в который числа заносятся вручную, или задать при помощи генератора случайных
чисел.

1-й с п о с о б. В ячейки электронной таблицы рабочего листа Excel введем числа (рис. 9.2), откроем окно программного кода и запишем в него программу, которая считывает данный массив чисел.

Программный код:

Option Explicit

Sub PR1 ()

Dim A(6) As Integer

Dim i As Integer

For i = 1 To 6

A(i) = Cells(1, i) ‘массив заполняется

Next i ‘числами с рабочего листа Excel