- 如何用vb用描点法画圆?请提供得到圆周上等间隔的n个点的坐标的方?
- 如何用vb用描点法圆?
请提供得到圆周上等间隔的n个点的坐标的方法.
- 不知道这样是否可以(注意要把窗体调成正方形,不然就画出椭圆):
Dim x#, y#
Private Sub Form_Load()
Me.Scale (-5, 5)-(5, -5)
Me.DrawWidth = 4
End Sub
Private Sub Form_Click()
For x = 0 To 4 Step 0.001
y = Sqr(16 - x ^ 2)
PSet (x, y)
PSet (-x, y)
PSet (x, -y)
PSet (-x, -y)
Next x
End Sub