运动轨迹
Private Sub Command1_Click()Form1.Scale (-50, 50)-(50, -50)
Line (-50, 0)-(50, 0)
Line (0, 50)-(0, -50)
Const PI = 3.14159
Dim r, x, y, x0, y0
r = 18
y0 = 0
x0 = 0
n = Val(Text1)
st = PI / n
For i = 0 To 2 * PI Step st
x = r * Cos(i) + x0
y = r * Sin(i) + y0
Circle (x, y), r * 0.9
Next i
End Sub
请帮忙看看所画圆的圆心轨迹为什么不是圆的？
