作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 21:09:42
求从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