求从0到9任选5个数(可以重复),5个数相加等于22的所有组合!

没看明白,我要求列出所有的组合,不是求共多少种.

打开VB程序 或者打开EXCEL利用控件使用VBA
输入下面的程序 穷举a+b+c+d+e=22 的所有组合
如果1+5+7+9和1+7+5+9看做是不同的那么 共计6000种
i = 0
For i1 = 0 To 9
For i2 = 0 To 9
For i3 = 0 To 9
For i4 = 0 To 9

For i5 = 0 To 9
If ((i1 + i2 + i3 + i4 + i5) = 22) Then i = i + 1

Next i5

Next i4
Next i3
Next i2
Next i1
MsgBox (i)
如果1+5+7+9和1+7+5+9看做是相同的那么 共计102种
i = 0
For i1 = 0 To 9
For i2 = 0 To 9
For i3 = 0 To 9
For i4 = 0 To 9

For i5 = 0 To 9
If (((i1 + i2 + i3 + i4 + i5) = 22) And (i1 < i2) And (i2 < i3) And (i3 < i4) And (i4 < i5)) Then i = i + 1

Next i5

Next i4
Next i3
Next i2
Next i1
MsgBox (i)
102
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-09-13
9 9 4 0 0
9 9 3 1 0
9 9 2 2 0
9 9 2 1 1
9 8 5 0 0
9 8 4 1 0
9 8 3 2 0
9 8 3 1 1
9 8 2 2 1
9 7 6 0 0
9 7 5 1 0
9 7 4 2 0
......
相似回答