VB一个大圆和圆分如何画

'窗体中有一个picture1的控件
 
Private Sub Form_Click()
    Const Pi = 3.14159265
    Picture1.Height = 4800
    Picture1.Width = 4800
    Picture1.Refresh
    Picture1.Scale (-2, 2)-(2, -2)
    Picture1.DrawWidth = 4
    Picture1.Circle (0, 0), 1
    For i = 0 To 2
        oy = Sin(i * 2 * Pi / 3 + Pi / 6)
        ox = Cos(i * 2 * Pi / 3 + Pi / 6)
        fb = 5 * Pi / 6 + i * 2 * Pi / 3
        If fb > 2 * Pi Then fb = fb - 2 * Pi
        fb1 = fb + 2 * Pi / 3
        If fb1 > 2 * Pi Then fb1 = fb1 - 2 * Pi
        Picture1.Circle (ox, oy), 1, 1, fb, fb1
    Next i
End Sub

这个就是内摆线。

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。