vb中画柱状折线图

来源：百度知道 编辑：UC知道 时间：2024/07/02 11:51:08
请问 我有两组数组，怎样才能画用程序实现他们之间的柱状图行 急急 谢谢 高手 将详细点哦 我把所有分都给你了

现要调用MSChart。方法如下：“工程”“部件”选中“Microsoft Chart Control 6.0 (OLEDB)”，在设计环境中新建一个MSChart1。
假定你的两组数组是a(),b()，数据是
a(0) = 4
a(1) = 5
a(2) = 18
b(0) = 8
b(1) = 3
b(2) = 12
（请自己更改）
代码如下。
=============================
Private Sub Form_Load()
Dim a(2), b(2), i As Integer
a(0) = 4
a(1) = 5
a(2) = 18
b(0) = 8
b(1) = 3
b(2) = 12
With MSChart1
.RandomFill = False
.ColumnCount = 2
.RowCount = UBound(a) - LBound(a) + 1
For i = LBound(a) To UBound(a)
.Column = 1
.Row = i + 1
.Data = a(i)
.Column = 2
.Row = i + 1
.Data = b(i)
Next
End With
End Sub