VB6取圆曲线坐标,该怎么处理

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

------解决方案--------------------

VB code

Option Explicit

Private 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

------解决方案--------------------

VB code

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

VB6取圆曲线坐标,该怎么处理

相关推荐