Введение в информатику. Хамухин А.А. - 87 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

86
Data(3) = #3/21/1920#
MsgBox Data(1) & ", age " & Data(2) & ", born " & Data(3)
End Sub
Здесь элементам массива присваиваются значения различных типов: первому
элементу строка, второму целое число, третьему дата. Поскольку Data
объявлен как массив типа Variant, его элементам можно присваивать значения
любого типа. В строке 6 значения всех элементов массива передаются в функцию
MsgBox для отображения в диалоговом окне.
3.7.3. Динамические массивы
Кроме описанных массивов фиксированного размера, в VBA есть массивы еще
одного вида динамические. До сих пор мы всегда явно указывали размерность
массива в инструкции. При описании динамического массива его размер не
указывается. Он определяется позже, при выполнении кода. Динамический массив
удобен, если Вы предполагаете, что в ходе выполнения программы его размер
может измениться. И в этой ситуации можно сэкономить память: сделайте так,
чтобы размеры массивов точно соответствовали Вашим текущим потребностям. В
противном случае Вы рискуете создать массивы, которые только попусту занимают
место, а это плохо отразится на производительности. Рассмотрим динамический
массив подробнее. В процедуре Рro16 массив Data4 сначала (с помощью
инструкции ReDim) объявлен как одномерный 2-элементный массив, а затем как
двухмерный 30-элементный.
Sub Pro16()
Dim Data4() As Variant
ReDim Data4(2)
Data4(1) = Int(100 * Rnd())
Data4(2) = Int(100 * Rnd())
MsgBox "Lottery Numbers: " & Data4(1) & ", " & Data4(2)
ReDim Data4(10, 3)
Data4(1, 1) = "IVAN"
Data4(1, 2) - 84
Data4(1, 3) = #3/21/1921#
MsgBox Data4(1, 1) & ", age " & Data4(1, 2) & _
", born " & Data4(1, 3)
End Sub
Сначала в строке 2 Pro16 мы описали массив Data4 типа Variant, не указывая
число измерений и элементов. В этой инструкции определяется динамический
массив, но память под него не отводится, пока в строке 3 не встречается инструкция
ReDim. В ней массив Data4 объявлен как одномерный 2-элементный массив. В
строках 4 и 5 двум элементам этого массива присваиваются случайные числа. В
строке 6 эти числа выводятся в информационном окне. В 7-й строке инструкция
ReDim используется еще раз для описания Data4 как двухмерного массива,
содержащего 30 элементов. Затем элементам первой строки этого массива

Страницы