Операторы цикла

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 mod 2=0 then a=a^2 else a=a-5 if a mod 2<>0 then a=a^2 else a=a-5 if a mod 3=0 then a=a^2 else a=a-5

Если этот же пример записать с использованием в операторе If записи после Then в столбик, это будет выглядеть так:

If A > 10 Then

A = A + 1

B = B + A

C = C + B

else

F=A+B+C

Задано целое число x. Вычислить значение функции

Ö x, если x>0;

Y = x², если 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

Циклический процесс – это процесс, в котором один оператор или группа операторов выполняются многократно при различных значениях аргумента.