На VB6:
Code
Option Explicit
Const a = 0.2
Const b = 0.01
Const bb = 50
Const c = 0.01
Const cc = 100
Private Sub Form_Click()
Dim x As Single, y As Single, t As Single
For t = 0 To 3500
x = t * a + Sin(t * b) * bb
y = Cos(t * c) * cc
PSet (x, y)
Next t
End Sub
Private Sub Form_Load()
ScaleLeft = 0
ScaleWidth = 500
ScaleTop = -150
ScaleHeight = 300
End Sub