VB用mschart画折线图
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询