画前120个点的时候你运行下可以发现有一条线总在picturebox的最上边沿，120个以后的绘图状态才是我想要的，你运行下代码就可以发现问题了，楼主，非常感谢

恩，单纯的画静态折线图我也会，但是这次毕业设计要求动态显示采集到的数据，遗憾的是目前的代码不是很完美，但是还是非常感谢你朋友！

朋友，你能把你改完的代码给我看一下吗，我改完效果不对啊，你改完了然后在回复这个界面里把代码给我看下呗，多谢！

楼主你真是厉害，按你说的改完后果然对了，但是在运行几十秒之后画出的图像就很奇怪了，不是那种带尖儿的折线图，是那种平的，然后再运行一会儿又成了带尖的那种图了，由于采用的是随机数，应该都是那种带尖的折线才对，麻烦你再费下心，感激不尽！

Dim px(121) As Single, py(121) As Single  '用来保存曲线数据的坐标值，程序中实时曲线通道为3.
Dim col As Integer             '当前需绘制的点数
Dim pl As Integer          '判断是否画动态曲线

Private Sub Command1_Click()
Timer2.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Timer2.Enabled = False
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
HScroll1.value = 900
Picture1.Scale (900, 0)-(1200, 300)    '设置绘图区域坐标
End Sub

Private Sub HScroll1_Change()
Picture1.Cls    '清空绘图区域
num = HScroll1.value              '使绘图区域坐标和滚动条对应
Picture1.Scale (900 - (900 - num), 0)-(1200 - (900 - num), 300)
If pl >= 2 Then
Picture1.PSet (px(0), py(0))
For i = 1 To col
Picture1.Line -(px(i - 1), py(i - 1)), QBColor(2)    ' 重绘曲线
Next i
End If
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
If col < 31 Then
For i = 0 To col
    px(i) = 900 + i * 10
    py(i) = Val(List1.List(i))      '利用随机数模拟实际数据
    Next i
      col = col + 1
      pl = pl + 1
      ElseIf col < 121 Then
      For i = 0 To col
      py(i) = Val(List1.List(i))
      px(i) = 1200 - 10 * (col - i) '如果数据点数》30  《121，数据的横坐标则用这个式子赋值
      Next i
      col = col + 1        '当数组装满时顺次前移，将数组第一个去掉
      Else
      For t = 0 To 119
      py(t) = py(t + 1)
      px(t) = 1200 - 10 * (col - t)
      Next t
      py(120) = Val(List1.List(List1.ListCount - 1))  '数组的最后一个元素始终存放当前最新实时数据
      End If
      If pl >= 2 Then     '在两个或两个以上的数据点时，开始画动态曲
      Picture1.PSet (px(0), py(0))
      For i = 1 To col - 2
      Picture1.Line -(px(i - 1), py(i - 1)), QBColor(2)
      Next i
      End If
End Sub

Private Sub Timer2_Timer()
Dim value As Integer


 value = Int(100 * Rnd + 100)
List1.AddItem value
End Sub

楼主，我这段程序已经差不多可以运行了，你可以帮我运行下，你会发现在曲线绘制一会儿后突然就变形了，变的不像刚开始那样的尖峰那样的了，然后再过一会儿又恢复成带尖的那种峰值了，你能帮我指出是程序哪儿段有问题吗，谢谢！

楼主你编完的程序在你那儿能顺利运行吗，为啥我直接把代码粘过来曲线绘制30个点就不动了啊，你先帮我看看我刚才让你简查的那段代码哪儿有问题，然后我们再讨论这个！

版主，真的非常非常感谢，没想到能得到这么大的帮助，我先研究下你的编程，然后再向你请教些问题，非常非常感谢，有人品，有能力，顶你！

我表示我都没有发现这种情况，呵呵，非常感谢版主，这个帖子得到这么多人的关注和解答，感觉非常有意义，希望对大家都有帮助，再次感谢！