End Sub

End Sub

End Sub

End Sub

Основные конструкции языка программирования среды VBA

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

(Лекция 6 - 4 часа)

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

· Функция Abs – Возвращает значение, тип которого совпадает с типом переданного аргумента, равное абсолютному значению указанного числа

· Функция Atn - Возвращает значение типа Double, содержащее арктангенс числа

· Функция Cos - Возвращает значение типа Double, содержащее косинус угла

· Функция Exp - Возвращает значение типа Double, содержащее результат возведения числа e (основание натуральных логарифмов) в указанную степень

· Функция Fix - Возвращают значение типа, совпадающего с типом аргумента, которое содержит целую часть числа

· Функция Int - Возвращают значение типа, совпадающего с типом аргумента, которое содержит целую часть числа

· Функция Log - Возвращает значение типа Double, содержащее натуральный логарифм числа

· Функция Rnd - Возвращает значение типа Single, содержащее случайное число

· Функция Sgn - Возвращает значение типа Variant (Integer), соответствующее знаку указанного числа

· Функция Sin - Возвращает значение типа Double, содержащее синус угла

· Функция Sqr - Возвращает значение типа Double, содержащее квадратный корень указанного числа

· Функция Tan - Возвращает значение типа Double, содержащее тангенс угла

Рассмотрим примеры использования некоторых функций.

Пример:

Sub Test()

Dim MyNumber

MyNumber = Abs(50.3) ' Возвращает 50.3.

MyNumber = Abs(-50.3) ' Возвращает 50.3.

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

Пример:

Sub Test()

Dim MyAngle, MyHSin

MyAngle = 1.3 ' Задает угол в радианах.

MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 ' Вычисляет

‘ гиперболический синус.

В данном примере функция Exp используется для вычисления числа (e), возведенного в указанную степень.

Пример:

Sub Test()

Dim MyNumber

MyNumber = Int(99.8) ' Возвращает 99.

MyNumber = Fix(99.2) ' Возвращает 99.

MyNumber = Int(-99.8) ' Возвращает -100.

MyNumber = Fix(-99.8) ' Возвращает -99.

MyNumber = Int(-99.2) ' Возвращает -100.

MyNumber = Fix(-99.2) ' Возвращает -99.

В данном примере показано, как функции Int и Fix возвращают целые части чисел. В случае отрицательного аргумента Int возвращает ближайшее отрицательное целое число, меньшее либо равное указанному, а Fix ближайшее отрицательное целое число, большее либо равное указанному.

Пример:

Sub Test()

Dim MyValue

MyValue = Int((6 * Rnd) + 1) ' Возвращает случайное число от 1 до 6.

В данном примере функция Rnd используется для получения случайного целого числа в диапазоне от 1 до 6.

Функция Rnd возвращает значение, меньшее 1 и большее или равное нулю.Аргумент число определяет способ генерации случайного числа функцией Rnd. При использовании одинаковых опорных чисел получаются одинаковые последовательности случайных чисел, поскольку при генерации каждого следующего члена последовательности используется предыдущий член.

Перед вызовом функции Rnd используйте инструкцию Randomize без аргумента для инициализации генератора случайных чисел значением, возвращаемым системным таймером.

Ниже приведена формула, предназначенная для получения случайных целых чисел в заданном диапазоне:

Int((верхняяГраница - нижняяГраница+ 1) * Rnd + нижняяГраница)

Здесь верхняяГраница представляет максимальное число в диапазоне, а нижняяГраница минимальное число в диапазоне.

Примечание. Для повторения последовательности случайных чисел следует вызвать функцию Rnd с отрицательным аргументом сразу после использования инструкции Randomize с числовым аргументом. Повторное использование инструкции Randomize с тем же числовым аргументом не приведет к повторению предыдущей последовательности случайных чисел.

Пример:

Sub Test()

Dim MyValue

Randomize ' Инициализирует генератор случайных чисел.

MyValue = Int((6 * Rnd) + 1) ' Возвращает случайное число от 1 до 6.

Дата добавления: 2014-01-11