Построить графики функций в декартовой системе координат - VB

Формулировка задачи:

Построить графики функций 1. В декартовой системе координат 1- 2. В полярной системе координат: уравнение восьмилепестного венчика(розы) R=acos4t 0<=t<=2

Решение задачи: «Построить графики функций в декартовой системе координат»

textual
                            Листинг программы 
                        

                            Private Sub Form_Click()
b = 10
a = 30
pi = 4 * Atn(1)
AutoRedraw = True: Cls: Scale (-b * pi, b * pi)-(b * pi, -b * pi)
For t = -pi To pi Step 0.001
R = a * Cos(4 * t)
PSet (R * Cos(t), R * Sin(t))
Next
End Sub
 
Private Sub Form_Resize()
Form_Click
End Sub
                        