Лекция №14

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.

Пример

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 = 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

Дата добавления: 2014-01-06