Арифметические и логические операции Visual Basic
Основные математические действия производятся с помощью операций. В таблице представлены все математические и строковые операции в порядке убывания приоритета. Для обеспечения корректности вычисления операций в сложных формулах используют круглые скобки.
| Операция | Название |
| ^ | Возведение в степень |
| - | Отрицание |
 * | Умножение Равный |
| / | Деление приоритет |
| \ | Деление нацело |
| Mod | Вычисление остатка от деления |
| + | Сложение Равный |
| - | Вычитание приоритет |
| & | Конкатенация (строк) |
Р = principal*rate/(1 - (1/ (1+rate)^n))
Использование встроенных функций Visual Basic
Рассмотренные выше операции дают возможность осуществлять основные математические действия, более сложные вычисления производятся с помощью встроенных функций. Visual Basicоперирует этими функциями подобно Excel, с тем отличием , что они всегда возвращают единичное значение. Функции Excel могут применяться к целым массивам чисел и возвращать массивы в качестве результатов. Чтобы обработать массив значений с помощью функции Visual Basic, нужно применить эту функцию к каждому элементу массива в отдельности.
Математические функции
| Функция | Описание |
| Atn | Возвращает арктангенс числа |
| Sin | Возвращает синус угла в радианах |
| Cos | Возвращает косинус угла в радианах |
| Tan | Возвращает тангенс угла в радианах |
| Exp | Возвращает е^х |
| Log | Возвращает натуральный логарифм числа (основание е=2.71828…) |
| Sqr | Возвращает квадратный корень числа |
| Randomize | Инициирует генератор случайных чисел |
| Rnd | Возвращает случайное число |
| Abs | Возвращает абсолютную величину числа |
| Sgn | Возвращает знак числа |
| Fix | Округляет число отсечением дробной части |
| Int | Округляет число до ближайшего меньшего целого |
Математические функции, приведенные в таблице, обычно требуют в качестве аргумента единичное значение, некоторым образом его трансформируют и возвращают также одно число. Тригонометрические функции Sin ( ), Cos ( ), Tan ( ) применяются к углам в радианах и преобразовывают их в соответствующую тригонометрическую величину.
Строковые функции
| Функция | Описание |
| StrComp | Сравнивает две строки |
| LCase | Преобразовывает строку в нижний регистр |
| UCase | Преобразовывает строку в верхний регистр |
| Space | Создает строку пробелов |
| String | Создает строку символов |
| Len | Определяет длину строки |
| Instr | Ищет подстроку |
| Lset | Выравнивает строку по левому краю |
| Rset | Выравнивает строку по правому краю |
| Str | Преобразовывает число в строку |
| Val | Преобразовывает строку в число |
Пример:
В= «ЯнвФевМарАпрМайИюнИюлАвгСенОктНояДек»
Lсase, после преобразований:
B = «янвфевмарапрмайиюниюлавгсеноктноядек»
Uсase, после преобразований:
B = «янвфевмарапрмайиюниюлавгсеноктноядек»
Len (B), после вычислений B = 36
instr (B,"Июл"), после выполнения функции: B = 19
Операторы
Оператор присваивания
Оператор присваивания - это основа всех вычислений в VBA, так как любая рассчитанная величина должна стать переменной, чтобы ее можно было хранить. Знак «=» является оператором присваивания, который предписывает выполнить выражение, заданное в его правой части, и присвоить результат переменной, идентификатор которой расположен в левой части. В правой части располагается выражение в виде формулы, в качестве которой может выступать отдельная величина или выражение, состоящее из переменных, констант, операций и функций. Переменная, располагающаяся слева, может быть простой переменной, элементом массива или свойством объекта.
Примеры операторов присваивания:
Filename = " c:\vba\exampl.xls"
Sales = Units * Prise
Profit = Sales - Cost
Coords (3,2) = 19.37
Selection.Values = 25
Rang("B1") . Formula = "=B4*B3-1"
ActiveCell.FormulaR1C1 = "Таблица погашения ссуды"
ActiveWindow . ScrollRow = 1
Первые три оператора присваивают значениям переменным, четвертый присваивает значение элементу массива, а все остальные присваивают значения свойствам.
Таким способом нельзя присвоить значения только объектам - они требуют специального оператора присваивания. Например, приведенная ниже процедура создает объектную переменную, присваивает ей объект Rang, ссылающийся на ячейку В5, и затем использует эту объектную переменную для присваивания значений ячейке:
Sub ObjVar ()
dim theRang as Object
Set theRang = ActiveSheet.Range(‘B5’)
theRang.Value = 10
EndSub
Исключением является оператор присваивания « : = ». В отличие от ранее описанного оператора присваивания «=», он применяется только по отношению к параметрам процедуры.
Sub Assistant (a, b)
c = a + b
Msgbox Cstr (c)
End Sub
Sub Main( )
Assistant a:= 1, b:= 3
End Sub
В данном примере при вызове процедуры Assistant передача параметров осуществляется присвоением значений именам параметров с помощью оператора присваивания «:=». При выполнении данной процедуры переменной С присваивается значение суммы переданных параметров с использованием оператора присваивания «=».