VB关于读取文本后计算排列问题
要写一个VB程序，要求是这样的，读取文本里面的数字第一行 A B C D A1 B1 C1 D1 6个数字，然后计算A除以A1=a B 除以B1=b C除以C1=c D除以D1=d结果保留小数后6位，
计算出来的结果b c d与a进行对比，然后写入文本中，并在bcd后面标注1 2 3 来表示那个最接近a（1最接近,3zuiyuan ）
100 200 300 400 50 40 50 20
计算结果是
2
5 1
6 2
20 3
写入文本
其他都实现了，
最后这个要怎么实现呢？让三个数写入后，要如何在他们后面标注1 2 3,
[ 本帖最后由 aps2009 于 2010-11-21 12:05 编辑 ]
