问题：在数组中挑选指定数量的数，使其合计值等于规定值
例如：在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

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