Пример.

Date: 2015-10-07; view: 465.

End If

ElseIf Условие2 Then

If Условие1 Then

[операторы]

[операторы]

[Else

[операторы]]

При задании такой последовательности Visual Basic проверяет Условие1. Если оно истинно, выполняются операторы этой ветви, затем происходит переход к оператору End If. Если условие ложно, то выполняются операторы, определяемые значением Условия2, записанные после ключевого слова ElseIf.

Примечание. При составлении алгоритма с несколькими условиями рекомендуется проверять условия в порядке от наиболее вероятных к менее вероятным, при этом обеспечивается наибольшая эффективность выполнения программы.

Пусть математическая модель задачи записана в виде:

Cхема алгоритма этой задачи будет иметь вид:

Программа может выглядеть так:

Dim x As Single, y As Single

x=InputBox("x=")

If x>0 Then

y = Sin(x)

Else

If x = 0 Then

y = 10

Else

y = Cos(x)

End if

End If

Print "y=" & Format(y,"0.000")

или так:

Dim x As Single, y As Single

x = InputBox("x=")

If x>0 Then

y=Sin(x)

ElseIf x = 0 Then

y = 10

Else

y = Сos(x)

End If

Print "y=" & y

При использовании условного оператора If необходимо обратить внимание на следующие особенности: в многострочной структуре операторы, выполняемые в случае истинности условия, нельзя записывать в одной строке с ключевым словом Then. В противном случае Visual Basic не распознает многострочный синтаксис конструкции.

10.2.4. Функция IIF

Функция IIF имеет следующий синтаксис: