用vb编写螺旋线绘图的程序

关于绘制出螺旋线的vb程序设计，Private Sub Form_Click() Dim x As Single, y As Single, I As Single Scale (-15, 15)-(15, -15) Line (0, 14)-(0, -14) Line (14.5, 0)-(-14.5, 0) For I = 0 To 12 Step 0.01 y = I * Sin(I) x = I * Cos(I) PSet (x, y) Next I End Sub 。