В табл. 3–6 представлены встроенные операторы и функции VB.
Таблица 3
Математические операторы
| Оператор
| Назначение
| Синтаксис. Использование
|
| +
| Сложение
| <число>+<число>...+<число>
|
| –
| Вычитание
| <число>–<число>...–<число>. Из результата первого вычитания вычитается третье число и так далее
|
| *
| Умножение
| <число>*<число>...*<число>
|
| /
| Деление
| <число>/<число>.../<число>. Результат деления первого числа на второе делится на третье и так далее
|
| \
| Целочис-ленное деление
| <число>\<число>...\<число>. Результат – целая часть от деления. Делимое и делитель преобразуются к целому типу!
|
| mod
| Остаток от деления нацело
| <число>mod<число>. Результат – остаток деления первого числа на второе. Делимое и делитель преобразуются к целому типу!
|
| ^
| Степень
| <число1>^<число>. Отрицательные значения <число1> допускаются только для целых значений <число>
|
Пример использования математических операторов:
Найти значение выражения
Sub primer()
Dim x As Double
' Объявление переменной x для хранения вещественных чисел
x=7\3
' Запись в переменную x целой части от деления двух чисел
Msgbox x
' Отображение значения из переменной x
x=x*(3+3.5^(-2.5))
' Нахождение произведения значения переменной x на сумму
' числа и степенного выражения;
' запись результата в переменную x
Msgbox x
' Отображение значения из переменной x
End Sub
Таблица 4
Математические функции
| Функ-ция
| Назначение
| Синтаксис. Использование
|
| Abs
| Модуль числа
| Abs(<число>). Если аргумент – не число, возвращает Null
|
| Atn
| Арктангенс числа
| Atn (<число>). Возвращает угол в радианах от -  /2 до + /2.
Arccos(<число>)=Atn(–<число>*Sqr(–<число> * <число>+1))+2*Atn(1)
|
| Cos
| Косинус угла
| Cos(<число>). Возвращает результат в диапазоне от –1 до +1. Аргумент (<число>) – радианы
|
| Exp
| eстепень
| Exp(<число>). Возвращает результат возведения числа e в степень, заданную числом
|
| Fix, Int
| Целая часть числа
| Fix(<число>); Int(<число>). Fix возвращает целое отрицательное число ближайшее большее или равное указанному аргументом отрицательному числу, а Int – ближайшее меньшее или равное
|
| Log
| Натуральный логарифм числа
| Log(<число>)
Для логарифма по произвольному основанию: Logxy=Log(y)/Log(x)
|
| Rnd
| Случайное число
| Возвращает случайное число в диапазоне [0,1)
|
| Sgn
| Знак числа
| Sgn(<число>). Возвращает: 1 – если аргумент >0; 0 – если аргумент = 0; –1 – если аргумент <0
|
| Sin
| Синус угла
| Sin (<число>)
|
| Sqr
| Квадратный корень
| Sqr(<число>). Аргумент (<число>) – радианы
|
| Tan
| Тангенс угла
| Tan(<число>). Аргумент (<число>) – радианы
|
Пример использования математических функций:
Найти значение выражения
Sub primer8()
Dim x As Double
' Объявление переменной x для хранения вещественных чисел
x = Int(Rnd() * 91 + 0)
' Задание случайного целого числа из диапазона [0…90]
' и запись его в переменную x
MsgBox x
' Отображение значения из переменной x
x = Cos(x * Excel.WorksheetFunction.Pi / 180)
' Перевод значения переменной x в радианы с помощью
' встроенной в лист MS Excel функции PI, вычисление cos
' и запись его значения в переменную x
MsgBox x
' Отображение значения из переменной x
End Sub
Таблица 5
Логические операторы
| Оператор
| Результат
|
| And (И)
| True And True – возвращает True
True And False – возвращает False
False And False – возвращает False
|
| Or (ИЛИ)
| True Or True – возвращает True
True Or False – возвращает True
False Or False – возвращает False
|
| Not (НЕ)
| Not True – возвращает False
Not False – возвращает True
|
| Xor (Исключающее ИЛИ)
| True Xor True – возвращает False
True Xor False – возвращает True
False Xor False – возвращает True
|
| <, >, >=, <=, <>
| <число>оператор<число>. Возвращают истину (True), если первое число меньше, больше, больше или равно, меньше или равно, не равно второму соответственно
|
Пример использования логических операторов:
Определить лежит ли значение x в промежутке [-2…1).
Sub primer()
Dim x As Double
' Объявление переменной x для хранения вещественных чисел
Dim bv As Boolean
' Объявление переменной bv для хранения логических значений
x = -2.1
' Запись в переменную x числа
bv = (x < 1) And (x >= -2)
' Вычисление логического выражения и запись его
' в переменную bv
MsgBox bv
' Отображение значения переменной bv
x = -1.2
bv = (x < 1) And (x >= -2)
MsgBox bv
x = 1
bv = (x < 1) And (x >= -2)
MsgBox bv
End Sub
Таблица 6
Текстовые операторы и функции
| Функция/ оператор
| Назначение
| Синтаксис. Использование
|
| & оператор
| Слияние (соединение) строк
| <строка>&<строка>...&<строка>
|
| UCase
| Изменение регистра букв строки на верхний
| UCase(<строка>)
|
| LCase
| Изменение регистра букв строки на нижний
| LCase(<строка>)
|
| InStr
| Поиск одной строки в другой с начала строки
| InStr([<начало>, ]<строка1>, <строка2>[, <тип сравнения>]). Функция возвращает позицию первого вхождения строки2 в строку 1 (при отсутствии вхождения возвращается 0);<начало> определяет начальную позицию поиска в строке1; <тип сравнения> = 1 указывает на посимвольное сравнение
|
| Left
| Возврат определенного числа символов с начала строки
| Left(<строка>,<количество символов>)
|
| Right
| Возврат определенного числа символов с конца строки
| Right(<строка>,<количество символов>)
|
| Mid
| Возврат определенного числа символов с определенного места в строке
| Mid(<строка>, <начало>[, длина])
или для замены части строки другой строкой:
Mid(<строка1>, <начало>[, длина]) = <строка2>.
Число замененных символов не должно приводить к превышению длины исходной строки.
|
| LTrim
| Удаление пробелов в начале строки
| LTrim(<строка>)
|
| RTrim
| Удаление пробелов в конце строки
| RTrim(<строка>)
|
| Trim
| Удаление пробелов с обеих сторон строки
| Trim(<строка>)
|
| Len
| Определение длины строки
| Len(<строка>)
|
| Chr
| ПреобразованиеASCII-кода в символ
| Chr(<кодСимвола>). Коды 0–31 соответствуют управляющим символам ASCII. Например, Chr(10) возвращает символ перевода строки, а Chr(13) – возврат каретки
|
| Asc
| Преобразование символа в ASCII-код
| Asc(<символ>). Возвращаемые значения лежат в диапазоне 0–255 для однобайтовых символьных наборов
|
| StrConv
| Изменение регистра в строке символов
| StrConv(<строка>, <условие>). Параметр <условие> задает тип обращения: 1 – преобразование всех символов к верхнему регистру, 2 – преобразование всех символов к нижнему регистру, 3 – преобразование к верхнему регистру первых символов строк и т.д.
|
Пример использования текстовых операторов и функций:
Вернуть из строки предпоследний символ в верхнем регистре.
Sub primer()
Dim s As String
' Объявление переменной s для хранения строк
s = "Пример строки"
' Запись в переменную s строки
s = Mid(s, Len(s) - 1, 1)
' Определение номера позиции предпоследнего символа в строке
' Len(s)-1, извлечение одного этого символа из строки Mid(…),
' запись извлеченного символа в переменную s
s = UCase(s)
' Преобразование к верхнему регистру символа в переменной s
' и перезапись его в переменную
MsgBox s
' Отображение значения переменной s
End Sub
