VB用mschart画折线图已知一个二维数组,现在以其中一列为横坐标,一列为纵坐标画折线图,没分了,

Question

VB用mschart画折线图
已知一个二维数组,现在以其中一列为横坐标,一列为纵坐标画折线图,没分了,

Answer 1

Dim i As Integer
Dim Values(1 To 10, 1 To 10) As Single
For i = 1 To 10
Randomize
Values(i, i) = Int((100 * Rnd) + 1)
Next i

' Send the data to the chart.
Chart1.chartType = VtChChartType2dXY
Chart1.RowCount = 10
Chart1.ColumnCount = 10
Chart1.ChartData = Values