Пример 2 (Выполнить)

Ввести Х, вычислить F по формуле:

X/2, если Х>0

F=

(X+1)/2, если Х<0

Рис. Интерфейс приложения

Код программы:

Private Sub CommandButton1_Click()

Dim x, F As Single

x = TextBox1.Value

If x = 0 Then MsgBox "Функция не определена", vbCritical, _

"Расчет функции"

If x > 0 Then F = x / 2 Else F = (x + 1) / 2

TextBox2.Value = F

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Выполнить самостоятельно по аналогии с примером 2

I