Page 104 - 4192
P. 104
Блок схема рішення задачі представлена на рис. 5.4.
Програмний код:
Private Sub
Command1_Click()
Dim x, y, xn, xk, dx As Single
xn = Val(Text1)
xk = Val(Text2)
dx = Val(Text3)
For x = xn To xk Step dx
y = x + 3
Picture1.Print x, y
Next x
End Sub
Private Sub
Command2_Click()
End
End Sub
Рисунок 5.4 – Рисунок 5.5 – Розроблений
Блок-схема інтерфейс та результат
алгоримту виконання програми
103
