已知圆点坐标和半径，如何枚举圆边的每一点坐标？

[gilbe]

如题

[_西瓜皮_]

半径：r
角度：ao

圆上任一点为：（x1,y1）
x1 = r * cos(ao * 3.14 /180 )
y1 = r * sin(ao * 3.14 /180 )

[gilbe]

楼上的好像有一点点问题，公式中怎么没有圆心坐标？不同的圆心坐标枚举出的圆周上的点应该不一样的
如果圆心(x,y)，半径r，圆周上任意坐标(x1,y1)应该怎么计算？

[zhao_6183]

楼上的已经差不多了，我补充一下：
圆点坐标：(x0,y0)
半径：r
角度：a0

则圆上任一点为：（x1,y1）
x1 = x0 + r * cos(ao * 3.14 /180 )
y1 = y0 + r * sin(ao * 3.14 /180 )

[Wenking003]

设：
r = 500
x0 = 2000
y0 = 2000

做出例图：
Me.AutoRedraw = True
Me.PSet (x0, y0)

枚举每一点：
For x1 = x0 - r To x0 + r
s1 = Sqr(r ^ 2 - (x1 - x0) ^ 2)
Me.PSet (x1, y0 - s1) '即 x1,y0 - s1
Me.PSet (x1, y0 + s1) '即 x1,y0 + s1
Next x1

[gilbe]

非常感谢楼上的几位