Функция LBound

Возвращает значение типа Long, содержащее нижнюю границу размерности для указанного измерения массива.

Синтаксис

LBound ( имя_массива [, измерение ] )

Функция LBound имеет следующие аргументы:

Аргумент

Описание

имя_массива

Обязательный аргумент. Имя переменной массива; должно удовлетворять стандартным соглашениям об именовании.

измерение

Необязательный аргумент. Variant (Long). Целое число, указывающее, для какого измерения массива должна быть возвращена нижняя граница. Для первого измерения следует задать значение 1, для второго — 2 и т. д. Если аргумент измерение не указан, используется значение 1.


Замечания

Функция LBound используется в сочетании с функцией UBound для определения размера массива. Функция UBound позволяет определить верхнюю границу измерения массива.

В таблице приводятся значения, возвращаемые функцией LBound для массива со следующими значениями:

Dim A(1 To 100, 0 To 3, -3 To 4)

Оператор

Возвращаемое значение

LBound(A, 1)

1

LBound(A, 2)

0

LBound(A, 3)

-3


Нижняя граница по умолчанию для любого измерения равна 0 или 1, в зависимости от оператора OptionBase. Базовый индекс массива, созданного с помощью функции Array, всегда равен нулю независимо от значения Option Base.

Нижней границей массива, размерности которого определены с использованием предложения To в операторах Dim, Private, Public, ReDim или Static, может быть любое целочисленное значение.

Пример

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В этом примере с помощью функции LBound определяется наименьший доступный индекс указанного измерения массива. Чтобы переопределить заданное по умолчанию для базового индекса массива значение 0, следует использовать инструкцию Option Base.

Dim Lower
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)
Dim AnyArray(10)
Lower = Lbound(MyArray, 1) ' Returns 1.
Lower = Lbound(MyArray, 3) ' Returns 10.
Lower = Lbound(AnyArray)
' Returns 0 or 1, depending on setting of Option Base.
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×