Объявление массива фиксированного размера

Объявление массива фиксированного размера зависит от области его видимости и осуществляется следующим образом:

глобальный массив объявляется с помощью служебного слова Public в секции Declaration модуля:

массив уровня модуля — с помощью служебного слова Private в секции Declaration модуля;

локальный массив — с помощью служебного слова Private процедуры.

При объявлении массива после его имени в круглых скобках указывается верхняя граница массива. По умолчанию нижней границей массива является 0. Например, в приведенном ниже коде, который вводится в секцию Declaration модуля, задается массив из 21 элемента. Индекс элементов массива изменяется от 0 до 20:

Dim intCountPar(20) As Integer

Для создания глобального массива такого же размера необходимо использовать следующий код:

Public intCountPar(20) As Integer

Можно явно задать нижнюю границу массива, используя ключевое слово то:

Dim intCountPar(1 To 20) As Integer

В этом случае задается массив из 20 элементов. Индекс элементов массива изменяется от 1 до 20.

Visual Basic позволяет использовать многомерные массивы. Например, в следующем коде объявляется двумерный массив размерностью 21х21:

Dim intCountPar(20, 20) As Integer

При использовании многомерных массивов, как и в случае одномерных, можно явно задавать нижнюю границу:

Dim intCountPar (1 To 20, 1 То 20) As Integer

Доступ к элементам массива осуществляется через индексы, например:

'Объявление массива типа Integer из 3-х элементов

Dim intArray(1 To 3) As Integer

'Запись в 1 элемент массива

intArray(1) = InputBox(“Введите элемент №1”)

'Запись в 2 элемент массива

intArray(2) = InputBox(“Введите элемент №2”)

'Запись в 3 элемент массива

intArray(3) = InputBox(“Введите элемент №3”)

'Запись в 4 элемент массива

intArray(4) = InputBox(“Введите элемент №4”)

'Запись в 5 элемент массива

intArray(5) = InputBox(“Введите элемент №5”)

'Вывод элементов массива

MsgBox "Элемент массива №1 = " & intArray(1)

MsgBox "Элемент массива №2 = " & intArray(2)

MsgBox "Элемент массива №3 = " & intArray(3)

MsgBox "Элемент массива №4 = " & intArray(4)

MsgBox "Элемент массива №5 = " & intArray(5)

Однако гораздо удобнее работать с массивами с применением операторов цикла. Так будет выглядеть пример, приведенный выше, с использованием оператора For…Next:

'Объявление массива типа Integer из 3-х элементов

Dim intArray(1 To 3) As Integer

Dim lngCounter As Long 'Счётчик

'Запись элементов массива

For lngCounter = 1 To 5

intArray(lngCounter) = InputBox("Введите элемент №" & lngCounter)

Next lngCounter

'Вывод элементов массива

For lngCounter = 1 To 5

MsgBox "Элемент массива № " & lngCounter & " = " & intArray(1)

Next lngCounter

Дата добавления: 2014-12-23