Лекция №14
End If
Else
ElseIf Условие3 Then
ElseIf Условие2 Then
If Условие1 Then
End If
If Условие Then
End If
Else
If Условие Then
Оператор условного перехода
Условный оператор, или оператор условного перехода, служит для организации процесса вычислений в зависимости от какого-либо условия. Общий вид условного оператора:
IfУсловиеThenОператор1ElseОператор2
Условие – это выражение логического типа. Оно может быть простым или сложным. Если в условном операторе <Условие> истинно, то выполняется <Оператор1>, в противном случае выполняется <Оператор2>.
Для записи условий могут быть использованы знаки логических отношений, представленные в табл. 5.
Пример
A >= 10
Таблица 5
Знаки сравнения
| Операция | Название | Пример выражения |
| = | Равно | A=B |
| <> | Не равно | A<>B |
| > | Больше | A>B |
| < | Меньше | A<B |
| >= | Больше или равно | A>=B |
| <= | Меньше или равно | A<=B |
Сложные условия образуются из простых путем применения логических операций и круглых скобок.
Пример
A > 10 And A < 20
(B > 4 Or B < 2) And A > 5
В табл. 6 указаны логические операции, предназначенные для составления сложных условий.
Таблица 6
Логические операции
| Операция | Название | Пример выражения |
| Not | Логическое отрицание | Not A |
| And | Логическое И | A And B |
| Or | Логическое ИЛИ | A Or B |
В условном операторе допустимо использование блока операторов. В этом случае условный оператор имеет вид
Блок операторов 1
Блок операторов 2
Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом:
If Условие Then Оператор
или
Блок операторов
Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид
Блок операторов 1
Блок операторов 2
………..
Блок операторов
В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделены двоеточием.
Пример
If A > 10 Then A = A + 1 : B = B + A : C = C + B
Пример 1
Задано целое число x. Вычислить значение функции
 |
Ö x , если x>0;
Y= x2 , если x<0;
5 , если x=0.
Программный код
Option Explicit
Sub PR3()
Dim x As Integer
Dim y As Double
x = Val(InputBox("Введите x"))
If x > 0 Then y = Sqr(x)
If x < 0 Then y = x ^ 2
If x = 0 Then y = 5
MsgBox ("y=" & y)
End Sub
Пример 2
Задано действительное число x. Вычислить значение функции
 |
Y =
 |
Ö x .
Программный код
Option Explicit
Sub PR4()
Dim x As Double
Dim y As Double
x = Val(InputBox("Введите x"))
If x > 0 Then
y = 1 / Sqr(x)
MsgBox ("y=" & y)
Else
MsgBox ("Решения нет")
End If
End Sub