1: Описывают последовательность действий
8: Структуры управления Ветвления ( IF . . . THEN . . . ELSE )
10: Однострочная запись IF условие THEN инструкции Например, IF a 10 THEN a a 1 : b b a
11: Многострочная запись IF условие THEN инструкциида END IF Например, IF a 10 AND a 100 THEN MsgBox "Вы правильно ввели число" b a 2 END IF
13: Однострочная запись IF условие THEN инструкциида ELSE инструкциинет Например, IF a 5 THEN c 5 ELSE c 0 : b a
14: Многострочная запись: IF условие1 THEN инструкциида1 ELSE инструкциинет1 ELSEIF условие2 THEN инструкциида2 . . . ELSE инструкциинетn. . . END IF
18: Безусловная передача управления GO TO Метка
23: Выбор ( SELECT CASE . . . END SELECT ) Данную структуру целесообразно использовать, когда требуется сделать выбор из более, чем двух альтернатив.
24: SELECT CASE выражение CASE значение 1выражения (условие) инструкции1 CASE значение2выражения (условие) инструкции2 . . . CASE ELSE инструкциииначе END SELECT
25: Case 1 To 4, 7 To 9, 11, 13
26: Function excase( ) Dim a As Integer, b As Integer, c As Integer, d As Integer a InputBox("Введите количество") Select Case a Case 1 To 10 MsgBox "скидки нет" Case 11 To 20 MsgBox "скидка 1" Case 21 To 30 MsgBox "скидка 2" Case Is 30 MsgBox "скидка 3" Case Else MsgBox "Введите положительное значение" End Select End Function
