怎么用VB写程序做扇形啊？？是双色扇子

15度的红绿小扇形相间构成的扇形

Private Sub Command1_Click()

Const pi = 3.1415926

Dim c(2) As Long

c(0) = vbRed

c(1) = vbGreen

X = 2000

Y = 2000

r = 1000

'start_d,end_d，为起始与结束的度数,值在0~360之间

start_d = 0

end_d = 120

If start_d >end_d Then

t = start_d

start_d = end_d

end_d = t

End If

For i = start_d To end_d Step 15

For j = i To (i + 15) Step 0.01

X1 = X + r * Sin(j * pi / 180)

Y1 = Y + r * Cos(j * pi / 180)

Picture1.Line (X, Y)-(X1, Y1), c(i Mod 2)

Next j

Next i

End Sub

扇形的周长和面积计算如下：

public class Sector {

    Scanner scanner = new Scanner(System.in)

    double pi = Math.PI

    

    // 计算扇形面积和周长的方法

    public void sector() {

    

        // 手动输入半径和角度

        System.out.println("请输入扇形的半径")

        double r = scanner.nextDouble()

        System.out.println("请输入扇形的角度")

        double n = scanner.nextDouble()

        

        // 求扇形面积

        double area = (n * pi * r * r) / 360

        System.out.println("扇形的面积是：" + area)

        

        // 求扇形周长

        double perimeter0 = 2 * r + (n * pi * r) / 180

        double perimeter = Math.floor(perimeter0)

        System.out.println("扇形周长是：" + perimeter)

    }

    

    // 测试方法

    public static void main(String[] args) {

        Sector sector = new Sector()

        sector.sector()

    }

}

测试结果：

---