Page 106 - 4192

Програмний код:
Private Sub Command1_Click()
Dim x, y As Single
For x = -3.5 To 2.3 Step 0.6
If x < 0 Then
y = x ^ 2
ElseIf x >= 0 And x <= 1 Then
y = Sin(x)
Else
y = Sqr(Abs(x ^ 2 - 4.9))
End If
Print x, y
Next x
End Sub

Private Sub Command2_Click()
End
End Sub

Рисунок 5.7 – Розроблений інтерфейс та результат
виконання програми

105