double arrow

Оператор условного перехода

Условный оператор, или оператор условного перехода, служит для организации процесса вычислений в зависимости от какого-либо условия. Общий вид условного оператора:

If Условие Then Оператор1 Else Оператор2

Условие – это выражение логического типа. Оно может быть простым или сложным. Если в условном операторе <Условие> истинно, то выполняется <Оператор1>, в противном случае выполняется <Оператор2>.

Для записи условий могут быть использованы знаки логических отношений, представленные в табл. 5.

Пример

A >= 10

Таблица 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

В условном операторе допустимо использование блока операторов. В этом случае условный оператор имеет вид

If Условие Then

Блок операторов 1

Else

Блок операторов 2

End If

Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом:

If Условие Then Оператор

или

If Условие Then

Блок операторов

End If

Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид

If Условие1 Then

Блок операторов 1

ElseIf Условие2 Then

Блок операторов 2

ElseIf Условие3 Then

………..

Else

Блок операторов

End If

В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделеныдвоеточием.

Пример

If A > 10 Then A = A + 1: B = B + A: C = C + B

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

If A > 10 Then

A = A + 1

B = B + A

C = C + B

End If

Пример 1

Задано целое число 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 =

Программный код

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


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: