Динамические массивы

Иногда бывает трудно заранее определить, сколько элементов нужно будет поместить в список. Для этого используют динамические массивы.

Динамические массивы используются в том случае, когда количество элементов массива заранее неизвестно и будет определяться в процессе выполнения программы. Как следствие, после того, как работа с динамическими массивом в программе будет выполнена, можно освободить память, которую он занимает.

Динамический массив объявляется так же, как и любой другой тип массива – оператором Dim. Единственное отличие состоит в том, что вы не указываете (в скобках) размер массива. Например:

Dim A() As Byte ‘ объявление динамического массива с указанием типа массива

Этой строкой мы создаем массив, но откладываем решение о том, сколько он будет иметь элементов. Перед тем, как использовать этот массив, нам необходимо будет указать его размер, который во время работы программы мы можем изменять сколько угодно раз. Это делается с помощью оператора ReDim. Например:

ReDim A(5) ‘ указание размерности динамического массива

Следует отметить, что при указании значений для размерностей динамического массива оператором ReDim его тип не может быть изменен. В противном случае будет выдано сообщение об ошибке.

При помощи оператора ReDim можно установить устанавливать любые значения границ и количество размерностей, а также менять любой из установленных параметров как в сторону уменьшения, так и увеличения. Например:

Dim A() As Byte

ReDim A() (Диапазон от 0 до 5)

ReDim A(1 to 4) (Диапазон от 1 до 4)

ReDim A(3,3, 1 to 3)(Диапазон от 0 до 3, от 0 до 3, от 1 до 3)

В качестве как верхней, так и нижней границы могут быть использованы не только числа, но и переменный целого типа, например:

Dim n As Integer

Dim A() As Integer

N=10

ReDim A(n)

Необходимо иметь ввиду, что при каждом выполнении оператора ReDim все значения элементов массива, которые до этого в нем хранились, будут потеряны, так как данный оператор обнуляет все элементы в соответствии с их типом, например, числовые массивы принимают значение 0, а символьные “” (пусто).

Для того, чтобы имеющиеся в массиве значения не пропали при его переопределении, следует использовать служебное слово Preserve, например:

Sub primer()

Dim n As Integer

Dim I As Integer

Dim A() As Integer

N=10

ReDim A() As Integer

For i=1 to n

A(i)=i^2

Next i

ReDim Preserve A(1 To 15)

For i=11 to 15

A(i)=i^3

Next i

End Sub

В данной программе требуется заполнить массив из десяти элементов квадратами первых десяти натуральных чисел. Затем следует переопределение размера массива до 15 и заполнение новых элементов (с 11 по 15) кубами следующих натуральных чисел.

Пример 10. Заполнить массив А(N) нечетными членами натурального ряда (1, 3, 5...) до тех пор, пока их произведение не станет больше произвольного числа М. Найти сумму элементов массива и их число.

Sub primer_10()

Dim A() As Integer

n = 100

ReDim A(n)

A(1) = 1: i = 2

Cells(1, 1) = A(1) ' начальные значения суммы и произведения

S = 0: Pr = 1 ' счетчик количества элементов

k = 1

m = InputBox("Введите число М", "Пример 1")

Do While Pr <= М ' начало цикла, проверка условия

k = k + 1 ' текущее количество элементов

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

A(i) = A(i - 1) + 2

Pr = Pr * A(i) ' вычисление произведения

i = i + 1

Loop ' конец цикла

For i = 1 To k ' вывод массива

S = S + A(i) ' накопление суммы элементов

Next i

Cells(2, 1) = "Сумма элементов = " & S

Cells(3, 1) = "Количество элементов = " & k

End Sub

Результат программы:

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