Page 101 - 4192

Програмний код:
Private Sub
Command1_Click()
Dim x, y, xn, xk, dx As Single
xn = Val(Text1)
xk = Val(Text2)
dx = Val(Text3)
x = xn
10
y = x + 3
Picture1.Print x, y
x = x + dx
If x <= xk Then GoTo 10
End Sub

Private Sub
Command2_Click()
End
End Sub

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

100