求一高手解读下着段代码 小弟没齿难忘 通俗易懂全面的讲解下
Private Sub Form_Activate()Dim x, y, z As Single
Scale (-20, 20)-(20, -20)
Line (0, 17)-(0, -17)
Line (18, 0)-(-18, 0)
For z = 0 To 15 Step 0.01
y = z * Sin(z)
x = z * Cos(z)
PSet (x, y)
Next z
End Sub
Private Sub Form_Activate()
Dim x, y, z As Single
Scale (-20, 20)-(20, -20) ‘定义坐标系，窗体左上角坐标为 (-20,20),右下角坐标为 (20，-20)
Line (0, 17)-(0, -17) ’画线（纵轴)，起始点坐标(0，17)，终点(0，-17)
Line (18, 0)-(-18, 0) '画线(横轴)，起始点坐标(18，0)，终点(-18,0)
For z = 0 To 15 Step 0.01 循环画点
y = z * Sin(z) '取纵坐标值
x = z * Cos(z) '取横坐标值
PSet (x, y) ’画点
Next z
