Вопрос 62

Досрочно завершить цикл For…Next можно и с помощью оператора Exit For. Такие операторы могут быть расположены в тех местах тела цикла, где требуется из него выйти, не дожидаясь выполнения условия завершения.

Бесконечный цикл не заканчивается никогда (для прерывания VBA нажмите клавишу Esc или комбинацию клавиш Ctrl+Break).

Вопрос 63

1) Функция uBound служит для определения верхней границы (индекса самого последнего элемента) массива по заданному измерению.

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

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

 Параметры:

ArrayName - Обязательный. Имя переменной массива, соответствующее стандартным соглашениям о наименовании переменных. При задании в качестве аргумента переменной, не являющейся массивом, генерируется ошибка времени исполнения Type mismatch

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

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

 Пример:

' Пример употребления функции UBound

' Объявляем трехмерный массив

• Dim myArray (1 To 100, 0 To 3, -3 To 4)

• Dim retval

• retval=UBound (myArray,1) 'возвращает 100

• retval=UBound (myArray,2) 'возвращает 3

• retval=UBound (myArray,3) 'возвращает 4

2) Функция lBound (Lower Bound) служит для определения нижней границы (индекса самого первого элемента) массива по заданному измерению.

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

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

 Параметры:

 ArrayName — Обязательный. Имя переменной массива, соответствующее стандартным соглашениям о наименовании переменных. При задании в качестве аргумента переменной, не являющейся массивом, генерируется ошибка времени исполнения Type mismatch

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

 Примечание: Функция LBound применяется совместно с функцией UBound для определения размера массива. Функция UBound используется для нахождения верхней границы для измерения массива. Нижняя граница для любого из измерений массива равна по умолчанию 0 или 1, в зависимости от установки оператора Option Base.

Массивы, созданные с помощью функции Array, имеют основание равное нулю; на это значение не оказывает влияния установка оператора Option Base.

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

 Пример:

 ' Объявляем трехмерный массив

• Dim myArray (1 To 100, 0 To 3, -3 To 4)

• Dim retval

• retval=LBound (myArray,1) ' возвращает 1

• retval=LBound (myArray,2) ' возвращает 0

• retval=LBound (myArray,3) ' возвращает -3