用图形方法绘制统计图 4页

ConstpiAsDouble=3.1415926Dimn1saleAsDoubleDimn2saleAsDoubleDimn3saleAsDoubleDimn4saleAsDoubleDimrationn1AsDoubleDimrationn2AsDoubleDimrationn3AsDoubleDimrationn4AsDoubleDimtotalsaleAsDouble‘获取销售额PrivateFunctioninputsale()AsBooleanpicsale.Clsn1sale=Val(txtn1.Text)n2sale=Val(txtn2.Text)n3sale=Val(txtn3.Text)n4sale=Val(txtn4.Text)totalsale=n1sale+n2sale+n3sale+n4saleIftotalsale=0ThenMsgBox"请输入销售额",32+4ExitFunctioninputsale=FalseEndIfrationn1=n1sale/totalsalerationn2=n2sale/totalsalerationn3=n3sale/totalsalerationn4=n4sale/totalsaleinputsale=TrueEndFunction‘绘制饼图函数的定义PrivateSubdrawchart(rationn1AsDouble,rationn2AsDouble,rationn3AsDouble)picsale.FillStyle=0DimiAsIntegerFori=0To200picsale.FillColor=vbRed picsale.Circle(2250,2250+i),1000,vbRed,-2*pi,-2*pi*rationn1,2/3picsale.FillColor=vbGreenpicsale.Circle(2250,2250+i),1000,vbGreen,-2*pi*rationn1,-2*pi*(rationn1+rationn2),2/3picsale.FillColor=vbBluepicsale.Circle(2250,2250+i),1000,vbBlue,-2*pi*(rationn1+rationn2),-2*pi*(rationn1+rationn2+rationn3),2/3Nextipicsale.FillColor=vbRedpicsale.Circle(2250,2250+i),1000,vbWhite,-2*pi,-2*pi*rationn1,2/3picsale.FillColor=vbGreenpicsale.Circle(2250,2250+i),1000,vbWhite,-2*pi*rationn1,-2*pi*(rationn1+rationn2),2/3picsale.FillColor=vbBluepicsale.Circle(2250,2250+i),1000,vbWhite,-2*pi*(rationn1+rationn2),-2*pi*(rationn1+rationn2+rationn3),2/3picsale.FillColor=vbYellowpicsale.Circle(2250,2250+i),1000,vbWhite,-2*pi*(rationn1+rationn2+rationn3),-2*pi,2/3EndSub‘绘制直方图函数的定义PrivateSubdrawline(rationn1AsDouble,rationn2AsDouble,rationn3AsDouble,rationn4AsDouble)DimiAsIntegerpicsale.BackColor=vbWhitepicsale.DrawWidth=2picsale.Line(50,500)-(4000,500),vbRedpicsale.CurrentX=4000:picsale.CurrentY=500picsale.Line(4000,500)-(3900,500),vbRedpicsale.CurrentX=4000:picsale.CurrentY=500picsale.Line(4000,500)-(3900,450),vbRedpicsale.CurrentX=3900:picsale.CurrentY=400picsale.Print"季度"picsale.Line(500,50)-(500,4000),vbRedpicsale.CurrentX=500:picsale.CurrentY=4000 picsale.Line(500,4000)-(550,3900),vbRedpicsale.CurrentX=4000:picsale.CurrentY=500picsale.Line(500,4000)-(450,3900),vbRedpicsale.CurrentX=600:picsale.CurrentY=400picsale.Print"销售量"Fori=1To10picsale.CurrentX=500:picsale.CurrentY=500+i*300picsale.Line(500,500+i*300)-(400,500+i*300),vbRedpicsale.CurrentX=80:picsale.CurrentY=600+i*300picsale.Printi*10&"%"NextiFori=1To4picsale.CurrentX=500+i*700:picsale.CurrentY=500picsale.Line(500+i*700,500)-(500+i*700,400),vbRedpicsale.CurrentX=250+i*700:picsale.CurrentY=300picsale.Print"第"&i&"季度"Nextipicsale.CurrentX=700+300:picsale.CurrentY=rationn1*3000+500picsale.Line(700+300,500)-(700+700,rationn1*3000+500),vbRed,BFpicsale.CurrentX=1400+300:picsale.CurrentY=rationn2*3000+500picsale.Line(1400+300,500)-(1400+700,rationn2*3000+500),vbGreen,BFpicsale.CurrentX=2100+300:picsale.CurrentY=rationn3*3000+500picsale.Line(2100+300,500)-(2100+700,rationn3*3000+500),vbBlue,BFpicsale.CurrentX=2800+300:picsale.CurrentY=rationn4*3000+500picsale.Line(2800+300,500)-(2800+700,rationn4*3000+500),vbYellow,BFEndSub‘绘制饼图PrivateSubcmdchart_Click()IfinputsaleThendrawchartrationn1,rationn2,rationn3ElseExitSubEndIfEndSub‘绘制直方图PrivateSubcmdzf_Click()IfinputsaleThendrawlinerationn1,rationn2,rationn3,rationn4Else ExitSubEndIfEndSub‘图形界面1、饼图2、直方图