被分隔的圆的三个小块分别用红,黄,蓝作底色

Question

怎么开发一个程序
画一个圆
从圆心开始,画三条线到圆边上
三条线的夹角分别是90,120,150度
并且
被分隔的圆的三个小块分别用红,黄,蓝作底色

Answer 1

关键是三部分填色，呵呵，用中比较变态的办法解决：Const R = 700   '圆半径
Const CX = 1000 '圆心坐标
Const CY = 1000
Const PI = 3.1415926Private Sub Command1_Click()
    Dim i As Integer    Picture1.AutoRedraw = True    Picture1.Circle (CX, CY), R
    Picture1.DrawWidth = 2
    For i = 0 To 90
        Picture1.Line (CX, CY)-(CX + R * Cos(PI * i / 180), CY + R * Sin(PI * i / 180)), vbBlue
    Next    For i = 90 To 210
        Picture1.Line (CX, CY)-(CX + R * Cos(PI * i / 180), CY + R * Sin(PI * i / 180)), vbRed
    Next    For i = 210 To 360
        Picture1.Line (CX, CY)-(CX + R * Cos(PI * i / 180), CY + R * Sin(PI * i / 180)), vbGreen
    NextEnd Sub

Answer 2

Option ExplicitConst R = 700   '圆半径
Const CX = 1000 '圆心坐标
Const CY = 1000
Const PI = 3.1415926Private Sub Command1_Click()
    Picture1.FillStyle = 0
    Picture1.FillColor = vbRed
    Picture1.Circle (1000, 1000), R, vbBlack, -0.000001, -PI / 2, 1
    Picture1.FillColor = vbGreen
    Picture1.Circle (1000, 1000), R, vbBlack, -PI / 2, -7 * PI / 6, 1
    Picture1.FillColor = vbBlue
    Picture1.Circle (1000, 1000), R, vbBlack, -7 * PI / 6, -2 * PI, 1
End Sub

Answer 3

画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。