急！在线等，大家帮帮忙，用VB中的MSchart画饼状图

实在对不起,我以为上边的你能看明白
现在把最简单能看懂的给你贴上

'先在“部件”里选上“Microsoft Chart Control 6.0”，并添加一个MSChart1。

Private Sub Form_Load()
'数据库我就不读了，你应该会从数据库读数据吧，把它读到a()里，假设有6条数据13，22，35，16，11，3
Dim aDdata() As Double
a = Array(13, 22, 35, 16, 11, 3)

With MSChart1
.chartType = VtChChartType2dPie '表示控件显示的为饼图
'在饼状图中ColumnCount代表每一个饼状图的数据个数,RowCount代表有多少个饼状图,二,三维表图中分别代表行和列,三维图中指定行,列后,.Data属性代表该坐标的高(这样懂了吧)
.ColumnCount = 6 '设置饼图的数据个数为6个
.RowCount = 1 '“画1个饼状图就成”
.ColumnLabel = "饼状图"

'本来可用循环给图赋值,为了能看懂,我分别赋值:
'一个饼状图的6个数值,分别代表6个坐标(row,column):(1,1)(1,2)(1,3)(1,4)(1,5)(1,6),这6个坐标,row是固定的,所以只赋值一次

.Row = 1
.Column = 1
.Data = a(0)
.Column = 2
.Data = a(1)
.Column = 3
.Data = a(2)
.Column = 4
.Data = a(3)
.Column = 5
.Data = a(4)
.Column = 6
.Data = a(5)

'.RandomFill = False '这句就是一开始给你用的随机数填图,现在不用了
.RowLabel = "你的数据标签"
.TitleText = "你的图表名称"
End With

End Sub

另外:你以为我是为了挣你这点分就不负责任吗,你可以看看我的回答记录,即使没有分我也会给他找代码,甚至自已费时间写很多代码,这是看情况定的,我自认为你的问题很简单,看了msdn就会懂,如果你不喜欢我这种发贴方式,以后不会烦您了,我是个讲信用的人,这次问题会帮你解决,至于分,你爱给不给