Введение в программирование на VBA - eDrive

48
является универсальным типом. Данные типа Variant могут принимать
значения других типов, а также Null и Empty. Null означает, что данные
отсутствуют, неизвестны или неприменимы. Он описывает пустые поля и
элементы управления. Специальная функция IsNull проверяет, равно ли Null
значение типа Variant. Присваивание этого значения может выполняться
обычным образом: переменная = Null. Значение Empty служит для
резервирования памяти под неинициализированную переменную типа
Variant. Проверка выполняется функцией IsEmpty, и инициализация
обычным образом: переменная = Empty. В числовых расчетах Empty
учитывается как нуль, а в строковых преобразованиях — как строка нулевой
длины.
Переменная типа Object может хранить любые объекты. У типов
Object есть особое значение Nothing для резервирования памяти, если
переменной не присвоен объект (аналогично Empty у Variant).
Инициализация этого значения выполняется традиционно: переменная =
Nothing.
Тип данных при необходимости можно уточнять оператором Set, с
помощью которого данные можно соотнести с любым объектом. Таким
образом удобно манипулировать объектом, заменяя его имя в операциях
именем переменной.
Функция VarType возвращает текущий тип переменной: 0 — vbEmpty,
1 — vbNull, 2 — vbInteger и т.д.
Примеры
Sub Логика()
Dim раз As Boolean, два As Boolean
раз = 5 > 7
два = 5 < 7
MsgBox раз Or два
раз = "Y" > "Z"
два = "Y" < "Z"
MsgBox раз And два
End Sub
Sub АлгоритмЕвклида()
' Решение задачи поиска наибольшего общего делителя (НОД) двух чисел
' по Евклиду основано на анализе пар чисел, пока они не сравняются.
Dim a As Integer, b As Integer
a = InputBox ("Введите первое число")
b = InputBox ("Введите второе число")
Do
If a > b Then a = a - b
If b > a Then b = b - a
Loop Until a = b