VB6求和算法问题，2000个数字中任意1-20个数字求和判断哪种组合与我给出的结果相同

VB6求和算法问题，任意1-20个数字求和判断那种组合与我给出的结果相同。

现有 2000 个 小于10亿大于负10亿的货币类型数字，小数点后保留4位。
上述数字与我给出的1个数字进行比对，如果2000个数字中没有任何一个与我给出的数字相等，则求 2000个数字中任意2个数字的和是否与我给我的数字相等。如果还没有就求任意3个数字的和，最终求到20个数字的和是否与我给出的数字相等。如果最终不相等则给出未找到的提示。

如果找到了，则要给出是那几个数字相加等于我给的数字，比如：第3个数字100+第1500个数字99+第7个数字-1=我给出的数字198

注意，2000个数字中数值可能有重复，但是不能把同一个位置的数字使用多遍。

上述算法需要运行多次，依次与我给出的1000个数字进行对比，对比后找到组合的数字要从2000个数字中移除。

这个高难。 思路简单好说，就是执行效率的问题，这个可能要多方考虑优化
简单说一下我队思路吧：
1、将这2000千个数，按从小到大的顺序存入一个有2000个元素的数组，我们称为数组A吧
2、当给出一个数据 S 时，首先将这个数据和数组的首尾两个元素比较，如果：A(0)<=S<=A(1999)，第一次先在这个数组中依次比较，看看有没有和S一样的数据。
3、如果第2点中没有找到，那么再依次将数组的元素俩俩相加和S比较（需要用到双重循环）。看看有没有和S一致的数据
4、如果还没有，那么就效仿第3点，将数组的三个元素相加（三重循环），依此类推。直到找到和S一样的和的组合，或者执行万20层循环而没有找到。 自己感觉这个思路没什么巧妙的地方，肯定不是最佳解决办法。呵呵

补充：VB ,  基础类