Page 94 - 4192

Рисунок 4.7 – Блок-схема алгоритму
Програмний код:
Private Sub
Command1_Click()
Dim x, y As Single
x = Val(Text1)
If x < -1 Then
y = 1 / x
ElseIf x >= -1 And x < 2
Then
y = 1 / x ^ 2
Else
y = 4

Рисунок 4.8 – End If

Розроблений нтерфейс
Text2 = y
та результат виконання End Sub
програми Private Sub
Command2_Click()

End

End Sub

93