vb画折线

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:57:42
有10组数，放在excel的两列里，以第一列数为横坐标，第二列数为纵坐标，把所有点依次连起来画折线图，怎么实现啊！

'绘制温度实时变化曲线
Private Sub draw()

Picture1.DrawWidth = 2 ' 设置线宽
Picture1.DrawStyle = vbSolid

For i = 1 To num - 1
X1 = (i - 1): Y1 = datatemp(i - 1)
X2 = i: Y2 = datatemp(i)
Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0) ' 曲线
Next i

End Sub

用VB吗?

怎么个画法!

把这些点按顺序连接,还是每个点都与其它的点用线连接??