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

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

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 имеет следующий синтаксис:

IIF(логическое выражение,выражение1,выражение2)

В отличие от оператора If функция IIF вычисляет два значения, но в зависимости от значения условного выражения возвращает только одно: если значение условного выражения истинно, то функция возвращает значение первого выражения, в противном случае – второго. Выражения могут быть представлены константами или вычисляемыми выражениями. Так, пример, рассмотренный на с. 36, можно записать в таком виде:

y=IIF(x>0,1,0)

Эта функция проверяет, имеет ли переменная x значение больше 0, и, если имеет, переменной y присваивается значение1, в противном случае – значение 0.

Рассмотрим еще несколько примеров.

Пример 1.

Пусть необходимо вычислить значение функций y1 и y2.

y 1 = a + ; y 2 = a ³, если x > a

y1 = arctg x, если x <= a,

где a = b + 1

Входные данные: x, b - вещественного типа

Выходные данные: y 1, y 2, a, х - вещественного типа

Схема алгоритма:

На форме разместим два текстовых поля для ввода значений x и b, командную кнопку и элемент управления "Надпись" для вывода значения переменной y 2 (используется свойство Caption этого элемента управ-ления). Программа будет иметь следующий вид:

Private Sub Command1_Click()

Dim x As Single, a As Single, b As Single

Dim y1 As Double, y2 As Double

x=Text1.Text

b=Text2.Text

a=b+1

If x>a Then

y1=a+Abs(x)

y2=a^ 3

Label1.Caption = "При x=" & Str(x) & ", a =" & Str(a) & ": y2=" & Str(y2)

Else

y1=Atn(x)

End If

MsgBox Format(y1, "0.000"),, " y1 равно"

End Sub

При выполнении условия x < a (6<45+1), форма и диалоговое окно, содержащее значение переменной y 1, будут иметь вид:

В противном случае при x > a (45>2+1)) вид формы изменится, а диалоговое окно, предназначенное для вывода значения переменной y 1, останется прежним.