VB 曲线绘制 Y轴 量程设置问题，请指教，谢谢。
有两数组X() Y() 数据，需要以X()为横坐标，Y()为纵坐标画出曲线图。 由于Y()数组中可能存在跳点等异常数据，需要合理确定好Y轴的量程。比如，Y()中大部分数据范围为-5到5之间，但其中存在少量异常数据，比如达到12 21 9 等，若依据Y()中所有数据点绘制曲线，即设置Y轴量程为MIN-Y()到MAX-Y()，则曲线会分布不均，导致-5到5之间的主要数据的变化趋势不清楚。 请问各位，有啥方法能够确定一个合理的Y轴量程，使得主要数据曲线描绘清楚呢？
开始考虑想办法先滤掉数据中的一些异常点，但门限不太好确定的，请各位高手指教的，非常谢谢！
注：数据点数量很多，还需要考虑运行效率问题。 --------------------编程问答-------------------- 有哪位知道么？谢谢咯 --------------------编程问答-------------------- 你可以将数据取连续10个，去掉一个最大值，去掉一个最小值，然后求平均值，这样得到的只作为一个绘制曲线的Y点。 --------------------编程问答-------------------- Y轴上主要区域和异常区域用不同的比例尺
Option Explicit
Private Sub Form_Paint()
Dim y As Single
Dim i As Long
Me.Cls
For i = 1 To 5
y = i
Line (0, y)-(21, y)
Next
For i = 6 To 21
y = 5 + (i - 5) / 10
Line (0, y)-(21, y)
Next
End Sub
Private Sub Form_Resize()
Me.Scale (0, 0)-(21, 7)
Call Form_Paint
End Sub
补充：VB , 基础类
