Оператор присваивания Синтаксис [Let] имя_переменной = выражение Set имя_объекта = {[New] Ссылкана объект | Nothing}

Арифметические операции Dim MyResult as Double MyResult = 10 / 5 === 2 MyResult = 10 / 3 === 3.(3) MyResult = 12 / 4.3 === MyResult = 12.6 / 5 === 2.52

Арифметические операции Dim MyResult as Integer MyResult = 10 / 5 === 2 MyResult = 10 / 3 === 3 MyResult = 12 / 4.3 === 3 MyResult = 12.6 / 5 === 3

Арифметические операции Dim MyResult as Double MyResult = 10 \ 5 === 2 MyResult = 10 \ 3 === 3 MyResult = 12 \ 4.3 === 3 MyResult = 12.6 \ 5 === 2

Арифметические операции Dim MyResult as Integer MyResult = 10 \ 5 === 2 MyResult = 10 \ 3 === 3 MyResult = 12 \ 4.3 === 3 MyResult = 12.6 \ 5 === 2

Арифметические операции Dim MyResult as integer MyResult = 10 Mod 5 === 0 MyResult = 10 Mod 3 === 1 MyResult = 12 Mod 4.3 === 0 MyResult = 12.6 Mod 5 === 3 Последняя цифра числа MyResult = 367 Mod 10 === 7 Число без правой цифры MyResult = 367 \ 10 === 36

Условный оператор(IF) Однострочная форма: If условие Then [оператор] [Else оператор]

Условный оператор(IF) Структурная форма: If условие Then [операторы] [Else операторы] End if

Условный оператор(IF) Сложная форма: If условие Then [операторы] [ElseIf условие-1 Then [операторы-1]... [Else [операторы-n]] End If

Условные функции IIf(лог.выр-е, выражение 1,выражение 2) Choose(индекс, выр 1[, выр-2,... [, выр-n]]) Switch(выр-1, знач-1[, выр-2, знач-2 … [, выр-n,знач-n]])

Оператор выбора(Select Case) Синтаксис Select Case селектор варианта [Case список выражений-n [операторы-n]]... [Case Else [Операторы _иначе]] End Select

Оператор выбора(Select Case) Список выражений для оператора Select Выражение, и/или Выражение TO выражение, и/или IS операция сравнения выражение

Расчет совокупного годового дохода Public Function Nalogi(Doxod As Currency, MinZ As Currency) As Currency Select Case Doxod Case Is <= 240 * MinZ Nalogi = 0.09 * Doxod Case Is <= 600 * MinZ Nalogi = 21.6 * MinZ * (Doxod * MinZ) Case Is <= 840 * MinZ Nalogi = 75.6 * MinZ * (Doxod * MinZ) Case Is <= 1080 * MinZ Nalogi = * MinZ * (Doxod * MinZ) Case Else Nalogi = * MinZ * (Doxod * MinZ) End Select End Function