Возвращает значение типа Long, содержащее верхнюю границу размерности для указанного измерения массива.
Синтаксис
UBound ( имя_массива [, измерение ] )
Функция UBound имеет следующие аргументы:
Аргумент |
Описание |
имя_массива |
Обязательный аргумент. Имя переменной массива; должно удовлетворять стандартным соглашениям об именовании. |
измерение |
Необязательный аргумент. Variant (Long). Целое число, указывающее, для какого измерения массива должна быть возвращена верхняя граница. Для первого измерения следует задать значение 1, для второго — 2 и т. д. Если аргумент измерение не указан, используется значение 1. |
Замечания
Функция UBound используется в сочетании с функцией LBound для определения размера массива. Функция LBound позволяет определить нижнюю границу измерения массива.
Функция UBound возвращает следующие значения для массива с указанными изменениями:
Dim A(1 To 100, 0 To 3, -3 To 4)
Оператор |
Возвращаемое значение |
UBound(A, 1) |
100 |
UBound(A, 2) |
3 |
UBound(A, 3) |
4 |
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере с помощью функции UBound определяется наибольший доступный индекс указанного измерения массива.
Dim Upper
' Declare array variables. Dim MyArray(1 To 10, 5 To 15, 10 To 20) Dim AnyArray(10) Upper = UBound(MyArray, 1) ' Returns 10. Upper = UBound(MyArray, 3) ' Returns 20. Upper = UBound(AnyArray) ' Returns 10.