以下代码从文件data.txt中读入数据,在PictureBox1上绘制饼图,data.txt文件数据格式为22,43,36。 Dim g AsGraphics = ______ Dim p As NewSystem.Drawing.Pen(Color.Black, 2) Dim x(3), a,s, sum As Single, i As Integer Dim br(3) AsHatchBrush i = 1 : sum =0 FileOpen(1,________________) '打开文件 Do While NotEOF(1) _______ '读数据到数组 sum = sum + x(i) '计算总量 i = i + 1 Loop _________ '关闭文件 br(1) = NewHatchBrush(HatchStyle.DiagonalBrick, Color.Blue, Color.White) br(2) = NewHatchBrush(HatchStyle.Plaid, Color.Black, Color.White) br(3) = NewHatchBrush(HatchStyle.LargeCheckerBoard, Color.Purple, Color.White) Dim rect1 AsNew Rectangle(10, 10, 100, 100) a = 0 ' a扇形的起始角 For i = 1 To3 __________ '将数据转为角度 g.FillPie(br(i), rect1, a, s) '画扇形 ________ '下一个扇形的起始角 Next End Sub