VB6取圆曲线坐标

Question

已知圆心坐标，半径，要在该圆曲线上间隔18度画小圆圈
问：怎么确认小圆的圆心坐标？

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Const PI As Double = 3.1415926535898
    Const Cx As Long = 150
    Const Cy As Long = 150
    Const R As Long = 100
    Dim i As Long
    
    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels
    
    Me.Circle (Cx, Cy), R
    
    Me.ForeColor = vbRed
    For i = 0 To 19
        Me.Circle (Cx + Cos(PI * i / 10) * R, Cy + Sin(PI * i / 10) * R), 10
    Next
End Sub

Answer 2

Option Explicit
Const pi = 3.14159
Const r = 31.4159
Private Sub Form_Load()
Dim i, a
Me.AutoRedraw = True
Me.BorderStyle = vbBSNone
Me.Caption = ""
Me.Width = Me.Height
Me.Scale (-50, -50)-(50, 50)
Me.Circle (0, 0), r, vbRed
For i = 0 To 360 Step 18
a = i * pi / 180
Me.Circle (r * Cos(a), r * Sin(a)), 3, vbRed
Next
End Sub

Answer 3

小圆的圆心心在大圆上？
那还不简单？设置一个半径再使用Circle方法绘制就OK了