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

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

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

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

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

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

Пример 1.

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

y1 = a + ; y2 = a³, если x > a

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

где a = b + 1

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

Выходные данные: y1, y2, a, х - вещественного типа

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

На форме разместим два текстовых поля для ввода значений x и b, командную кнопку и элемент управления "Надпись" для вывода значения переменной y2 (используется свойство 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), форма и диалоговое окно, содержащее значение переменной y1, будут иметь вид: