问题：在数组中挑选指定数量的数，使其合计值等于规定值
例如：在50，100，125，150，200，250，315，400，630这几个数中选18个（可以重复），使它们的合计等于2050。

Dim ArrData(8)
ArrData(0) = 50
ArrData(1) = 100
ArrData(2) = 125
ArrData(3) = 150
ArrData(4) = 200
ArrData(5) = 250
ArrData(6) = 315
ArrData(7) = 400
ArrData(8) = 630

组合所有的排列组合的运算次数为： 39346408075296537575424   ，39万亿亿次

你去找算法吧。如果只求一个最优结果，好像可以使用贪心算法，但我不会。呵呵

这个问题不是最优问题.
先把问题用初等数学帮你简化一下:
两个方程解9个未知数
方程1:50a+100b+125c+150d+200e+250f+315g+400h+630i=2050
化简:10a+20b+25c+30d+40e+50f+63g+80h+126i=410
方程2:a+b+c+d+e+f+g+h+i=18
消去a有:10b+15c+20d+30e+40f+53g+70h+116i=230
自己分析,最先得到g=0,i=0
剩下10b+15c+20d+30e+40f+70h=230
2b+3c+4d+6e+8f+14h=46
这就好解了，随便试都有解。用遍历也容易
遍历时，注意每个变量的取值范围，比如e为0至46/8.

[此贴子已经被作者于2016-4-7 17:19编辑过]

大神们能不能给一个所有的排列组合的代码。
不需要优化，也不需要管时间消耗。