已知一个圆的圆心起点在屏幕上的坐标和它的半径，如何得到任一度数的屏幕坐标？

[hawkol]

已知一个圆的圆心起点在屏幕上的坐标和它的半径，如何得到任一度数的屏幕坐标？

有VB代码吗？

[砸死牛顿的苹果]

o(x,y) 圆心
r 半径
degree 度数

Private Sub Form_Click()
Const pi = 3.14159265358979
Dim x1 As Long, y1 As Long, r As Single, degree As Single
Dim x2 As Single, y2 As Single
x1 = 200
y1 = 200
r = 150
degree = 120
x2 = r * Cos(degree / 180 * pi) + x1
y2 = -r * Sin(degree / 180 * pi) + y1
Print x1, y1, x2, y2, r, degree
Line1.x1 = x1
Line1.x2 = x2
Line1.y1 = y1
Line1.y2 = y2
End Sub

[hawkol]

谢谢！分已送出~