[求助]：请高手帮忙写一个函数

zhuj

已知一个50000*3的数组，第一列为桩号。第二，三列为该桩号处的x,y坐标，现一直任意一x,y坐标，插直求出该点的桩号，请高手帮忙完成这样一个函数function getzh(x as double,y as double,paramary data()) as double,请使用vb,因为数组比较大请帮忙给出一个最节省系统资源的算法，小弟在这谢谢了！参数，xy为需求解桩号的坐标，data()为数组！

abu

不知数组中X、Y坐标数据是不是按从大到小或从小到大排列的，如果是随机排列就只能用历遍的方法去做（For i=LBound(数组) to UBound(数组)）比较费时。