有一个代码和我需要的差不多，但要修改，求高手帮忙，感激不尽
我要做的程序的功能是实现：由数据库传过来的数据（1000多对数），生成二维曲线。以下的代码和我所需有相似之处，但有不同，希望高手帮忙写个代码，实现程序的功能。。。感激不尽绘制实时采集数据曲线的程序源代码如下：
Dim x0, y0, h, w
Dim I as integer
x0 = Shape1.Left
y0 = Shape1.Top + Shape1.Height
h = Shape1.Height / 1
w = Shape1.Width / 300
Picture1.ForeColor = QBColor(1)
Picture1.Cls
Y1 = Shape1.Height
For I=0 to 600
Picture1.Line (x0 + i * w, y0 - dqsj(i) * h)-(x0 + (i + 1) * w,y0 - dqsj(i + 1, Q) * h )
Next
//说明：其中，dqsj是记录10分钟内实时采集速度值的数组。
