Структура программы
Чтобы понять, в чем разница между этими двумя способами, нужно рассмотреть хранение и механизм передачи параметров "изнутри". Итак, при объявлении переменной какого-либо типа выделяется область в памяти компьютера, в которой будет храниться значение переменной. Размер этой области, понятно, зависит от типа этой переменной. Теперь, зная, как устроена переменная внутри компьютера, рассмотрим вопрос о передаче ее в качестве параметра в процедуру.
Если переменная передается в процедуру по ссылке (то есть с использованием перед ее именем ключевого слова ByRef), то процедуре будет передан адрес этой переменной в памяти. При этом происходит отождествление формального аргумента процедуры и переданного фактического параметра.
Тем самым вызываемая процедура, изменяя значение формального параметра, изменяет значение переменной.
Если же переменная передается по значению (то есть с использованием перед ее именем ключевого слова ByVal), то компилятор создает временную копию этой переменной и именно адрес этой переменной-копии передается процедуре. Тем самым вызываемая процедура, изменяя значение формального параметра, изменяет значение переменной-копии (но не самой переменной), которая будет уничтожена после завершения работы процедуры. По умолчанию в VBA переменные передаются по ссылке.
После рассмотрения способов передачи переменных в процедуру вернемся к дальнейшему обзору ее конструкции. Следующий параметр paramArray может появиться только перед последним аргументом в списке аргументов, указывая, что он является необязательным массивом элементов типа variant. имяАргумента – это идентификатор, составленный согласно правилам создания имен и представляющий аргумент в теле процедуры. Параметр типДанных – это либо встроенный тип данных, либо тип, определенный пользователем. По умолчанию типДанных является Variant.
После описания процедуры идет блокОператоров1 (обычно называемый телом процедуры), в котором могут быть использованы значения аргументов" процедуры. Если в ходе выполнения операторов процедуры встречается оператор Exit Sub (выход из процедуры), то выполнение процедуры прекращается и управление передается оператору, следующему за оператором вызова процедуры.
Функция отличается от процедуры тем, что помимо выполнения операторов ею возвращается некоторое значение. Синтаксис описания функции немногим отличается от процедуры:
[Public | Private | Friend] [Static] Function имяФункции [(списокАргументов)] [As типЗначения] [блокОператоров1] [имяФункции = Выражение] [Exit Function] [блокОператоров2] [имяФункции = Выражение] End FunctionВо-первых, ключевое слово sub заменено на Function. Во-вторых, после объявления аргументов следует указать тип возвращаемого функцией значения. В-третьих, в теле функции есть присваивание имени функции какого-либо значения, имеющего объявленный тип. Конечно, подобное присваивание необязательно, но тогда ваша функция будет похожа на процедуру, а результатом функции окажется значение по умолчанию, определенное для соответствующего типа. И наконец, вместо ключевого слова Exit Sub для выхода из функции используется ключевое слово Exit Function.
Давайте на примере об издательстве и магазинах опишем процедуру инициализации массива заявок. Итак, у нас есть аргумент массива, который передается процедуре, а процедура инициализирует его с помощью стандартной функции inputBox. Для определения верхней и нижней границ массива используются стандартные функции LBound и uBound.
В случае с функцией в качестве аргументов вводится массив заявок и количество книг на складе, а возвращается логическое значение True, если удовлетворяются заявки всех магазинов, и False – в противном случае. Кстати, аргумент количество книг мы сделаем необязательным, по умолчанию равным 5000.
Программа 20.14. Объявление процедур и функций.
Public Sub InitBookShops(arr() As Integer) Dim i, str For i = LBound(arr) To UBound(arr) str = "Ввести заказ для магазина №" & i arr(i) = InputBox(str) Next i End SubPublic Function SaleAbility(arr() As Integer Optional numOfBooks As Integer = 5000) As BooleanDim sumOfBooks For Each elem In arr sumOfBooks = sumOfBooks + elem Next If sumOfBooks < numOfBooks ThenSaleAbility = True ElseSaleAbility = False End If End FunctionЗамечание
В теле функции SaleAbility имеется сознательно допущенная нерациональность. Вместо последнего условного оператора if…Then…Else можно и нужно написать эквивалентный, более эффективный оператор присваивания SaleAbility = sumOfBooks < numOfBooks. Этим замечанием мы специально акцентируем внимание читателя на подобных мелких, но важных "хитростях" хорошего стиля программирования.
Помимо вышеописанного объявления процедур и функций, в VBA существует особый вид процедур. Это процедуры реакции на событие, вызываемое системой или пользователем (см. главу "Разработка приложения"). Например, для документов Word определены события open и close, для рабочих книг Еxcel – Beforesave и Beforedose, для объектов пользовательских классов – initialize и Terminate, нажатие кнопки диалогового окна тоже является событием и т. д. Пользователь способен сам создать процедуру реакции на подобные события, например попросить выводить сообщение "До свидания, спасибо за работу!" при закрытии документа.
Синтаксис подобной процедуры такой же, как и у обыкновенной, только в ее имени сначала указан объект, с которым будет связано событие, потом – символ подчеркивания (_), а затем – собственно имя события.