请教：一组数字找出几个数字的和约等于某个数字

fgh_886

请教：
1、某几个数字的和大于10000且最接近10000，找出这几个数字；
2、用的数字个数越少越好。

huanghai22

文件仅供参考

wodewan

三坛老窖

这是个凑数问题，无非是多了二个条件。

给你提供如下思路，不知你自己能否解决：
1、用一个数组Arr，Arr的下标为所有元素中的最小值1130，上标为目标和值10000，Arr用于保存数据元素的序列，例如：Arr（4447）=“3647+1130”，Arr（6986）=“3647+1130+2209”，Arr（8565）=“3647+1130+2209+1579” ···
2、用一个数组Brr，Brr的上下标同Arr，用于保存和值的元素个数，例如：Brr(4447)=2、Brr(6986)=3 ···
3、设置变量Sum，用于保存大于10000的最小和值
4、设置变量Count，用于保存大于10000的最小和值的元素个数
5、设置变量EleSeq，用于保存大于10000的最小和值的元素序列
6、遍列数据元素的和值：
        当和值小于10000时
        If Brr(和值) = 0 Then
           Arr(和值)=∑元素
        ElseIf 元素个数 < Brr(和值) Then
           Brr(和值)=元素个数
        End If
        继续累加
        当和值大于10000时
        If Sum < 和值  Then
           Sum = 和值
           Count = Brr(和值) + 1
           EleSeq = Arr(和值) + 最后被加上的元素
        ElseIf Sum = 和值 And Count > Brr(和值) + 1  Then
           Count = Brr(和值) + 1
           EleSeq = Arr(和值) + 最后被加上的元素
        End If
        停止累加，开始新的累加
7、输出Sum、Count、EleSeq,结束

三坛老窖

没打开附件，以为没有小数。

不过，100W也不是问题，把数据元数乘上100和再处理即可