Файл: Макарова_Информатика_2000.doc

Вызов процедуры с указанием соответствия имен аргументов вызываемой процедуры и имен переменных вызывающей процедуры, которые разделяются в строке знаком : Конец процедуры

При завершении работы вызываемой процедуры и передаче управления вызывающей процедуре происходит потеря значений переменных, объявленных в вызываемой процедуре.

Для предотвращения этого сохраняемые переменные следует объявлять оператором:

Static <var> As <type>

Обычно при вызове процедуры происходит передача адреса, по которому находится значение (адрес соответствует имени переменной). Процедура может изменить значение аргумента. Для блокировки изменения значения аргумента следует передача величин значением. Для этого выполняется либо модификация заголовка процедуры, либо передача аргументов в виде формулы.

Для модификации заголовка процедуры выполняется указание ключевого слова By Val перед именами аргументов, значение которых не изменится внутри процедуры.

Пример 19.19.

Для преобразования аргумента в виде формулы при вызове процедуры имя переменной заключается в круглые скобки.

Пример 19.20.

Текст программы

Комментарий

Sub Proc_A ()

Dim Sq as Single

Dim LL as Single

Dim HH as Single

LL=12

HH=23

SquarPr L:=(LL); H:=(HH); S:=Sq

End Sub

Вызывающая процедура

Объявление переменных

ПЛОЩАДЬ

ДЛИНА

ВЫСОТА

Присвоение значений переменным

Преобразование аргумента в

формулу

Конец процедуры

Встроенные функции VBA

Встроенные функции VBA обеспечивают сложные виды обработки данных, избавляя пользователя от разработки собственных программ. Функции имеют аргументы, в качестве которых используются переменные, константы, выражения. Как правило, встроенные функции VBA (табл. 19.6) возвращают отдельные значения (не массивы).

Некоторые встроенные функции VBA имеют два варианта реализации, в одном случае возвращается значение типа Variant, в другом – типа String. Предпочтительнее использовать строковый тип данных (String), если:

в большой программе используется много переменных;

программа детально структурирована;

данные записываются непосредственно в файл прямого доступа.

Некоторые встроенные функции VBA возвращают значение в виде строки символов, если к имени функции добавлен символ – $. Следующие встроенные функции имеют одинаковые формат и правила применения, что и без символа $:

Таблица 19.6. Категории встроенных функций VBA

Категории встроенных функций	Примеры функций
Математические	ABS() – абсолютное значение числа; RND() – случайное число; INT() – выделение целой части числа; тригонометрические функции и др.
Строковые	LCASE() – преобразование в строчные буквы строки символов; UCASE() – преобразование в прописные буквы строки символов; LEFT() – выделение подстроки слева; RIGHT() – выделение подстроки справа; LEN() – определение длины строки и др.
Даты и времени	DATE() – возврат текущей системной даты; CDATE() – конвертирование выражения в формат дата/время; ТIМЕ() – возврат текущего системного времени; NOW() – возврат текущей даты и текущего времени (по компьютеру); DAY() – возврат номера дня года; MONTH() – возврат номера месяца года; WEEKDAY() – возврат номера дня недели; YEAR() – возврат номера года и др.
Преобразования типов данных	СINТ() – преобразование действительного числа в целое (с округлением); CSTR() – преобразование числа в строку символов; CVAR() – преобразование в тип данных VARIANT; FORMAT() – форматирование данных типа дата, время, число, строка символов для печати или записи в файл; STRCOMP() – сравнение двух строк; VAL() – преобразование строки символов в число и др.
Файловой системы	FILEATRR() – возврат атрибутов файла; FILEDATETIME() – определяет дату и время создания (модификации) файла; FILELEN() – определяет длину файла в байтах; FREEFILE() – определяет следующий свободный номер для работы с файлом и др.

Функции пользователя

На языке VBA можно создавать функции пользователя, которые, в отличие от процедуры, возвращают вычисленное значение (одно); оно может участвовать в выражениях оператора присваивания.

Заголовок функции пользователя имеет вид:

Внимание! Для функции указывается тип возвращаемой величины – As <type>. В теле функции используется оператор присваивания вычисленного значения имени функции.

Пример 19.21. Использование пользовательской функции вычисления площади прямоугольника

Текст программы

Комментарий

Sub Proc_A ()

Dim S as Single

Dim LL as Single

Dim HH as Single

LL=12

HH=23

S=Sq(LL;H)/2+1200

End Sub

Function Sq (H As Single; L As Single As Single)

Sq=H*L

End Function

Вызывающая процедура

Объявление переменных

ПЛОЩАДЬ

ДЛИНА

ВЫСОТА

Присвоение значений переменным

Формула вызова функции Sq

Конец процедуры

Объявление функции Sq с аргументами

Присвоение функции Sq результата

вычисления

Конец функции

Управляющие структуры

VBA относится к категории языков структурного программирования и позволяет использовать стандартные управляющие структуры, к которым относятся: условный оператор, альтернативная выборка, циклы.

Условный оператор If. Оператор может использоваться в двух нотациях: в виде простой и блочной структур.

Оператор простой структуры имеет следующий формат записи:

If <выражение> Then <оператор>

Данный оператор обеспечивает проверку выражения (условия). Если условие истинно (True), выполняется простой или составной оператор, следующий за словом Then; если условие ложно (False), управление передается следующему за If оператору.

Составной оператор – последовательность операторов одной строки, разделенных знаком : (двоеточие).

При построении выражения с помощью операторов логического сравнения следует обеспечить однотипность сравниваемых величин.

Пример 19.22.

If MaxPrice > 23,000.00$ Then MaxPrice=23,500.00$

If Student_Card(100).FullName Like "Пе*" Then number=Student_Card(100).Group

При построении выражений используют специальные функции логических проверок VBA.

Логические выражения могут быть построены с помощью стандартных логических функций:

Функция

Описание

Функция

Описание

Not

And

Инверсия или отрицание

Логическое "И"

Логическое "ИЛИ"

Хоr

Imp

Eqv

Исключающее "Или"

Импликация

Эквивалентность

Последовательно выполняется проверка истинности выражений. Если выражение 1 истинно, выполняется блок операторов 1, иначе выполняется проверка истинности выражения 2 и т.д.

Если ни одно из выражений не соответствует требованиям истинности, выполняется блок операторов Else, если оно имеется, иначе – оператор, следующий за End If.

Пример 19.23. Организация проверки условия блочной структурой оператора If

Текст программы

Комментарий

If AvgPrice > 12000 Then

DiffPrice=Full(234, 45600)

Проверка условия 1

Если условие 1 истинно, вызов процедуры

ElseIf AvgPrice > 24000 Then

DiffPrice=Full( 12000, 45000)

ElseIf AvgPrice > 36000 Then

DiffPrice=Full(24000, 50000)

Else