VB txt 计算问题，请指教，谢谢！

A.txt ,列数据存入A（）数组
418
439
457
479
498
518
538
555
578
598
618
638
658
677
701
718
734
759
778
798
818
839
858
878
898
918
939
956
978
998
......

B.txt:数据存入B（）数组
500
700
900
......

注：A B文件数据均为顺序增大。

想要遍历A数组，从中找到与B数组数据最接近的数，结果输出C.txt文件：
500 498
700 701
900 898
......

文件A、B中的数据非常多，A大概有10W行以上，所以需要考虑计算效率，请高手指教，能给出具体代码最好了，谢谢!
--------------------编程问答-------------------- --------------------编程问答-------------------- 应该是个顺序文件操作的作业题.


如果B中的一个B(i)数对应的A文件内最接近的数是A(x),那么B(i+1)对应的A文件内的数肯定在A(x)之后--或者还是A(x),但肯定不会是A(x)之前的数.---因为B(i+1)应该大于等于B(i)-->不用遍历整个A

如果B(i)已经搜索到A文件的结尾了,那么B(i)以及B(i)之后的数对应的都是A文件的最后一个数.

LS的If j + 1 > Ubound(A) Then Exit For不好,用Exit Do才能保证A文件数据数量不足的情况. --------------------编程问答-------------------- 折半查找

补充：VB ,  基础类