45. Библиотека стандартных функций vba. Примеры

В проекте VBA всегда доступно несколько объектных библиотек : объектная библиотека приложения пакета Office 2000, документ которого содержит описание проекта; общие объектные библиотеки VBA и Office 2000; специальные библиотеки приложения. Если в проекте предполагается использовать объекты другого приложения или объекты из дополнительных библиотек, соответствующую объектную библиотеку следует подключить. Это делается с помощью диалогового окна Ссылки (References), открывающегося при выборе команды Сервис4Ссылки (Tools4 References) в редакторе VBA . Если этого не сделать, объектная библиотека будет недоступна и имена содержащихся в ней объектов внутри проекта будут не определены.

46.Операции и функции для данных логического типа. Примеры

Логические выражения и операции

Результатом выполнения логического (булевского) выражения, является логи¬ческое значение True или False. Операндами могут служить только данные булевского типа .

Простейшими видами логических выражений являются следующие:

логическая константа;

логическая переменная;

элемент массива логического типа ;

логическая функция ;

выражение отношения.

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

Операция	Действие	Выражение	A	B	Результат
Not	Логическое отрицание	not A	True		False
			False		True
And	Логическое И	A and B	True	True	True
			True	False	False
			False	True	False
			False	False	False
Or	Логическое ИЛИ	A or B	True	True	True
			True	False	True
			False	True	True
			False	False	False
Xor	Исключающее ИЛИ	A xor B	True	True	False
			True	False	True
			False	True	True
			False	False	False

Пример программы, которая сравнивает два вводимых целых числа и печатает значение логического заключения:

program Sravnenie;

var

A,B : integer;

Test : boolean; {Описание переменной логического типа Test}

begin

Write('Введите два числа: ');

Readln(A,B);

Test := A > B; {Присвоить Test значение результата сравнения}

Writeln('A больше B — ', Test);

end.