Числа

Язык VBA поддерживает следующие числовые типы:

• Byte — целые числа от 0 до 255. Занимает 1 байт;
• Integer — целые числа от -32 768 до 32 767. Занимает 2 байта;
• Long — длинные целые числа. Диапазон значений от -2 147 483 648 до 2 147 483 647. Занимает 4 байта;
• Single — вещественное число. Занимает 4 байта;
• Double — вещественное число двойной точности. Занимает 8 байт;
• Currency — числа с фиксированной точкой (четыре цифры после точки). Тип используется для хранения денежных величин. Занимает 8 байт;
• Decimal — десятичное масштабируемое число. Может содержать значения в диапазоне +/-79 228 162 514 264 337 593 543 950 335 или +/-7.9228162514264337593543950335. Минимальное ненулевое значение равно +/-0.0000000000000000000000000001. Обратите внимание на то, что объявить переменную данного типа явным образом нельзя. Тип Decimal является подтипом типа Variant и создается с помощью функции CDec(). Пример:

Создать объект целочисленного типа можно обычным способом:

Кроме того, можно указать число в восьмеричной или шестнадцатеричной форме. Такие числа будут автоматически преобразованы в десятичные целые числа. Восьмеричные числа начинаются с комбинации символов &O и содержат цифры от 0 до 7:

Шестнадцатеричные числа начинаются с комбинации символов &H и могут содержать цифры от 0 до 9 и буквы от A до F:

Вещественное число может содержать точку и (или) быть представлено в экспоненциальной форме с буквой E (регистр не имеет значения):

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

Ожидаемым был бы результат 0.0, но, как видно из примера, мы получили совсем другой результат. Если необходимо производить операции с фиксированной точностью, то следует использовать тип Currency:

Функции для работы с числами

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

• CByte(<Значение>) — преобразует значение в число типа Byte. Если преобразование невозможно возбуждается исключение. Пример:

• CInt(<Значение>) — преобразует значение в число типа Integer. Если преобразование невозможно возбуждается исключение. Пример:

• CLng(<Значение>) — преобразует значение в число типа Long. Если преобразование невозможно возбуждается исключение. Пример:

• CSng(<Значение>) — преобразует значение в число типа Single. Если преобразование невозможно возбуждается исключение. Пример:

• CDbl(<Значение>) — преобразует значение в число типа Double. Если преобразование невозможно возбуждается исключение. Пример:

• CCur(<Значение>) — преобразует значение в число типа Currency. Если преобразование невозможно возбуждается исключение. Пример:

• CDec(<Значение>) — преобразует значение в число типа Decimal. Если преобразование невозможно возбуждается исключение. Пример:

• Val(<Строка>) — преобразует строку в целое или вещественное число. Строка просматривается слева направо пока не встретится недопустимый символ. В качестве десятичного разделителя должна быть указана точка. Пробелы, символы табуляции и символ перевода строки игнорируются. В строке могут быть указаны восьмеричные и шестнадцатеричные значения. Восьмеричные значения должны начинаться с комбинации символов &O, а шестнадцатеричные значения — с комбинации символов &H. Если преобразование невозможно функция возвращает значение 0. Пример:

• Oct(<Число>) — преобразует десятичное число в восьмеричное. Возвращает строковое представление числа. Пример:

• Hex(<Число>) — преобразует десятичное число в шестнадцатеричное. Возвращает строковое представление числа. Пример:

• CStr(<Значение>) — преобразует значение в строку. Пример:

• str(<Число>) — преобразует число в строку. Первый символ в строке резервируется под знак числа. Если число является положительным, то первый символ будет пробелом, а если отрицательным — то первым символом будет знак минус. Обратите также внимание на то, что при выводе десятичный разделитель отображается в виде точки, а не в виде запятой, как это было при использовании функции CStr(). Пример:

Функция str() возвращает значение типа Variant (String). Чтобы получить значение типа String следует использовать функцию str$(), имеющую тот же самый формат. Пример:

• IsNumeric(<Значение>) — возвращает значение True, если значение можно преобразовать в число, и False — в противном случае:

Математические функции

Перечислим основные математические функции:

• Sin(<Число>), Cos(<Число>), Tan(<Число>) — стандартные тригонометрические функции (синус, косинус, тангенс);
• Atn(<Число>) — арктангенс числа. Получим значение числа Пи:

• Exp(<Число>) — экспонента;
• Log(<Число>) — логарифм;
• Sqr(<Число>) — квадратный корень:

• abs(<Число>) — возвращает абсолютное значение:

• Sgn(<Число>) — позволяет определить знак числа. Возвращает одно из следующих значений:

• 1 — если число больше нуля;
• 0 — если число равно нулю;
• -1 — если число меньше нуля.

Пример:

Округление чисел

Для округления чисел предназначены следующие функции:

• Fix(<Число>) — возвращает значение, округленное до целого числа. Дробная часть числа просто отбрасывается:

• Int(<Число>) — возвращает значение, округленное до целого числа. Для положительных чисел дробная часть просто отбрасывается, а для отрицательных чисел возвращается ближайшее меньшее значение:

Для округления чисел можно также воспользоваться функцией CInt():

Генерация псевдослучайных чисел

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

• Rnd([<Число>]) — возвращает псевдослучайное вещественное число типа Single меньше 1, но большее или равное 0. Если параметр не указан или задано положительное значение, то функция возвращает следующее псевдослучайное число из последовательности:

Если в качестве параметра указать отрицательное значение, то будет генерироваться одно и тоже число, соответствующее значению:

Если указано значение 0, то функция возвращает последнее сгенерированное число:

• Randomize [<Число>] — настраивает генератор псевдослучайных чисел на новую последовательность.

Создадим генератор паролей произвольной длины (листинг 5.1). Для этого добавляем в массив arr все разрешенные символы, а далее в цикле получаем случайный элемент, сгенерировав индекс с помощью пользовательской функции Rand(), возвращающей целое число в указанном диапазоне.

Листинг 5.1. Генератор паролей