End If
End If
Else
ElseIf Условие3 Then
ElseIf Условие2 Then
If Условие1 Then
End If
If Условие Then
End If
Else
If Условие Then
Оператор условного перехода
Условный оператор, или оператор условного перехода, служит для организации процесса вычислений в зависимости от какого-либо условия. Общий вид условного оператора:
If Условие Then Оператор1 Else Оператор2
Условие – это выражение логического типа. Оно может быть простым или сложным. Если в условном операторе <Условие> истинно, то выполняется <Оператор1>, в противном случае выполняется <Оператор2>.
Для записи условий могут быть использованы знаки логических отношений, представленные в табл. 5.
Пример
Таблица 5
Знаки сравнения
Операция | Название | Пример выражения |
= | Равно | A=B |
<> | Не равно | A<>B |
> | Больше | A>B |
< | Меньше | A<B |
>= | Больше или равно | A>=B |
<= | Меньше или равно | A<=B |
Сложные условия образуются из простых путем применения логических операций и круглых скобок.
Пример
If A > 10 And A < 20 then …..
If (B > 4 Or B < 2) And A > 5 then …..
В табл. 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 else F=A+B+C
|
If A > 10 Then
A = A + 1
B = B + A
C = C + B
else
F=A+B+C
Задано целое число 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
Пример 3
Задано три действительных числа x, y, z. Вычислить самое большое из них.
Программный код
Option Explicit
Sub PR5()
Dim x As Double, y As Double, z As Double, max As Double
x = Val(InputBox("Введите x"))
y = Val(InputBox("Введите y"))
z = Val(InputBox("Введите z"))
If (x > y) And (x > z) Then max = x
If (y > x) And (y > z) Then max = y
If (z > x) And (z > y) Then max = z
MsgBox ("Максимум=" & max)
End Sub
Циклический процесс – это процесс, в котором один оператор или группа операторов выполняются многократно при различных значениях аргумента.