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

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

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

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

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

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

6 Арифметические операции 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

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

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

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

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

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

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

13 Расчет совокупного годового дохода 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