（100分求）VB 如何把一段波形读取并赋值到一个或两个数组中！！！！？？

n=点的个数
redim pArray(1 to n,1 to 2) '二维输入中放x，y的值
for i=1 to n
pArray(i,1)=x(i)

pArray(i,2)=y(i)

next i
求斜率的话，可以这样
redim r(n-1) ‘一维数组，存放斜率
for i=1 to n-1
d=pArray(i+1,1)-pArray(i,1) 'x方向步长
h=pArray(i+1,2)-pArray(i,2) 'y方向振幅步长
r(i)=d/h '斜率

next

判断最大斜率可以通过比较r(i)来确定

你的问题描述不全面，这个波形是显示在哪里（即是什么控件中显示的）？其坐标是怎么设置的？等等信息不清楚，读取X、Y的坐标点，这些是必须的，没有这些信息，无法读取的，这样也不能存储在数组中。
最好有图片说明。

一,波的线颜色要搞清楚,一般是16进制的,背景色也要搞清楚,
二,每隔200毫秒采个样,搜索点不能太多,要优化下算法
三,读取点颜色:如clr=Picture1.Point(x,y)
四,求斜率用数学公式:k=(y2-y1)/(x2-x1)

你的原始数据是如何存放的？