...数据,利用vb6.0中的mschart控件来画折线图的代码程序。十分感谢_百 ...

发布网友发布时间：2024-10-23 03:31

共1个回答

热心网友时间：2024-11-07 05:01

新建工程，在表单上放置MSChart1控件，然后粘贴以下代码：
Private Sub Form_Load()
Dim D(1 To 10, 1 To 2) As Double, i As Integer
Randomize
For i = 1 To 10 '产生随机数
D(i, 1) = 100 * Rnd(1)
D(i, 2) = -100 * Rnd(1)
Next

MSChart1.chartType = VtChChartType2dLine '设定图表类型
MSChart1.ChartData = D
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com