Функция Array

  • Статья

Возвращает значение Variant, содержащее массив.

Синтаксис

Array(arglist)

Обязательный аргументarglist представляет собой разделенный запятыми список значений, назначенных элементам массива, содержащимся в Variant. Если аргументы не указаны, создается пустой массив.

Примечания

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

В приведенном ниже примере первый оператор создает переменную с именемA как переменную типа Variant. Второй оператор назначает массив переменной A. Последний оператор присваивает значение, содержащееся во втором элементе массива, другой переменной.

Dim A As Variant, B As Long, i As Long
A = Array(10, 20, 30)  ' A is a three element list by default indexed 0 to 2
B = A(2)               ' B is now 30
ReDim Preserve A(4)    ' Extend A's length to five elements
A(4) = 40              ' Set the fifth element's value
For i = LBound(A) To UBound(A)
    Debug.Print "A(" & i & ") = " & A(i)
Next i

Нижняя граница массива, создаваемого с помощью функции Array, определяется нижней границей, указанной в операторе Option Base, кроме случаев, когда к Array добавляется имя библиотеки типов (например, VBA.Array). Если имя библиотеки типов добавлено, оператор Option Base не влияет на функцию Array.

Примечание.

Переменная Variant, не объявленная как массив, также может содержать массив. Переменная Variant может содержать массив любого типа, за исключением строк фиксированной длины и пользовательских типов. Хотя переменная Variant, содержащая массив, по существу отличается от массива, элементы которого имеют тип Variant, доступ к элементам массива осуществляется так же.

Пример

В данном примере функция Array возвращает переменную Variant, содержащую массив.

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2)    ' MyDay contains "Tue".
MyDay = MyWeek(4)    ' MyDay contains "Thu".

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.