用图形方法绘制统计图.docx

Const pi As Double = 3.1415926Dim n1sale As DoubleDim n2sale As DoubleDim n3sale As DoubleDim n4sale As DoubleDim rationn1 As DoubleDim rationn2 As DoubleDim rationn3 As DoubleDim rationn4 As DoubleDim totalsale As Double获取销售额Private Function inputsale() As Boolean picsale.Cls n1sale = Val(txtn1.Text) n2sale = Val(txtn2.Text) n3sale = Val(txtn3.Text) n4sale = Val(txtn4.Text) totalsale = n1sale + n2sale + n3sale + n4sale If totalsale = 0 Then MsgBox 请输入销售额, 32 + 4 Exit Function inputsale = False End If rationn1 = n1sale / totalsale rationn2 = n2sale / totalsale rationn3 = n3sale / totalsale rationn4 = n4sale / totalsale inputsale = TrueEnd Function绘制饼图函数的定义Private Sub drawchart(rationn1 As Double, rationn2 As Double, rationn3 As Double) picsale.FillStyle = 0 Dim i As Integer For i = 0 To 200 picsale.FillColor = vbRedpicsale.Circle (2250, 2250 + i), 1000, vbRed, -2 * pi, -2 * pi * rationn1, 2 / 3 picsale.FillColor = vbGreenpicsale.Circle (2250, 2250 + i), 1000, vbGreen, -2 * pi * rationn1, -2 * pi * (rationn1 + rationn2), 2 / 3 picsale.FillColor = vbBlue picsale.Circle (2250, 2250 + i), 1000, vbBlue, -2 * pi * (rationn1 + rationn2), -2 * pi * (rationn1 + rationn2 + rationn3), 2 / 3 Next i picsale.FillColor = vbRed picsale.Circle (2250, 2250 + i), 1000, vbWhite, -2 * pi, -2 * pi * rationn1, 2 / 3 picsale.FillColor = vbGreen picsale.Circle (2250, 2250 + i), 1000, vbWhite, -2 * pi * rationn1, -2 * pi * (rationn1 + rationn2), 2 / 3 picsale.FillColor = vbBlue picsale.Circle (2250, 2250 + i), 1000, vbWhite, -2 * pi * (rationn1 + rationn2), -2 * pi * (rationn1 + rationn2 + rationn3), 2 / 3 picsale.FillColor = vbYellow picsale.Circle (2250, 2250 + i), 1000, vbWhite, -2 * pi * (rationn1 + rationn2 + rationn3), -2 * pi, 2 / 3End Sub绘制直方图函数的定义Private Sub drawline(rationn1 As Double, rationn2 As Double, rationn3 As Double, rationn4 As Double) Dim i As Integer picsale.BackColor = vbWhite picsale.DrawWidth = 2 picsale.Line (50, 500)-(4000, 500), vbRed picsale.CurrentX = 4000: picsale.CurrentY = 500 picsale.Line (4000, 500)-(3900, 500), vbRed picsale.CurrentX = 4000: picsale.CurrentY = 500 picsale.Line (4000, 500)-(3900, 450), vbRed picsale.CurrentX = 3900: picsale.CurrentY = 400 picsale.Print 季度 picsale.Line (500, 50)-(500, 4000), vbRed picsale.CurrentX = 500: picsale.CurrentY = 4000 picsale.Line (500, 4000)-(550, 3900), vbRed picsale.CurrentX = 4000: picsale.CurrentY = 500 picsale.Line (500, 4000)-(450, 3900), vbRed picsale.CurrentX = 600: picsale.CurrentY = 400 picsale.Print 销售量 For i = 1 To 10 picsale.CurrentX = 500: picsale.CurrentY = 500 + i * 300 picsale.Line (500, 500 + i * 300)-(400, 500 + i * 300), vbRed picsale.CurrentX = 80: picsale.CurrentY = 600 + i * 300 picsale.Print i * 10 & % Next i For i = 1 To 4 picsale.CurrentX = 500 + i * 700: picsale.CurrentY = 500 picsale.Line (500 + i * 700, 500)-(500 + i * 700, 400), vbRed picsale.CurrentX = 250 + i * 700: picsale.CurrentY = 300 picsale.Print 第 & i & 季度 Next i picsale.CurrentX = 700 + 300: picsale.CurrentY = rationn1 * 3000 + 500 picsale.Line (700 + 300, 500)-(700 + 700, rationn1 * 3000 + 500), vbRed, BF picsale.CurrentX = 1400 + 300: picsale.CurrentY = rationn2 * 3000 + 500 picsale.Line (1400 + 300, 500)-(1400 + 700, rationn2 * 3000 + 500), vbGreen, BF picsale.CurrentX = 2100 + 300: picsale.CurrentY = rationn3 * 3000 + 500 picsale.Line (2100 + 300, 500)-(2100 + 700, rationn3 * 3000 + 500), vbBlue, BF picsale.CurrentX = 2800 + 300: picsale.CurrentY = rationn4 * 3000 + 500 picsale.Line (2800 + 300, 500)-(2800 + 700, rationn4 * 3000 + 500), vbYellow, BFEnd Sub绘制饼图Private Sub cmdchart_Click() If inputsale Then drawchart rat