Привести примеры.
Оператор выбора. Используется для реализации условных конструкций. В VBA 2 типа выбора: с условием (If…Then); оператор-переключатель (Select Case)
Условные операторы используются в программе для реализации условных переходов, которые выполняются в зависимости от условий, которые существуют на момент выполнения этих операторов. Одним из важных элементов условного оператора является выражение условия , значением которого может быть Истина(True) или Ложь(False).Такие выражения условия записываются с помощью операторов отношения. В VBA есть 2 типа операторов If…Then – линейный и блочный.
Линейный оператор if…Then используется для того, что бы выполнить какой-либо один оператор, если некоторое условие будет истинным. Условие является выражением, истинность которого оценивается. Конструкция линейного оператора имеет 2 формы -безальтернативную If условие Then выражение, -альтернативную If Условие Then Выражение_1 Else Выражение_2. Блочный оператор используется тогда, когда в случае истинности условия необходимо выполнить несколько программных операторов (блоков операторов).
Линейный Блочный
-безальтернативную
If условие Then выражение
Правило! Если условие выполняется, то выполняется оператор. Если условие не выполняется, то выполняется следующий оператор.
[Пример If k<2 Then p=2]
-альтернативную
If Условие Then Выражение_1 Else Выражение_2
Правило! Если условие выполняется. То выполняется оператор 1, если условие не выполняется. то выполняется оператор 2
[Пример If x<3 Then z=5 Else z=0;
N=InputBox(“N=”)
If N Mod 3=0 Then MsgBox(“кратно 3”) Else MsgBox (“не кратно 3”)]
-безальтернативный блочный оператор:
If условие Then
Программный оператор 1
Программный оператор 2
Программный оператор 3
End If
Правило! Если условие выполняется, то выполняется весь блок операторов. Если не выполняется, то блок не выполняется. -альтернативный блочный оператор
If условие Theт
Программный оператор 1
Программный оператор 2
Else
Программный оператор 3
Программный оператор 4
End If
[Пример
If A<0 Then
B=1
MsgBox “Значение B=”&B
Else
C=3
MsgBox “Значение C=”&C
End If