EXCEL 摆列组合问题从4.5 7.5 10.5 13.5 16.5 19.5 22.5 25.5 28.5 这9个数中取任意6个数（可重复）并且它们的和要等于102 并把所有的组合罗列出来 请问这个程序怎么写?
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/25 01:13:12
EXCEL 摆列组合问题从4.5 7.5 10.5 13.5 16.5 19.5 22.5 25.5 28.5 这9个数中取任意6个数（可重复）并且它们的和要等于102 并把所有的组合罗列出来 请问这个程序怎么写?
EXCEL 摆列组合问题
从4.5 7.5 10.5 13.5 16.5 19.5 22.5 25.5 28.5 这9个数中取任意6个数（可重复）并且它们的和要等于102 并把所有的组合罗列出来 请问这个程序怎么写?
EXCEL 摆列组合问题从4.5 7.5 10.5 13.5 16.5 19.5 22.5 25.5 28.5 这9个数中取任意6个数（可重复）并且它们的和要等于102 并把所有的组合罗列出来 请问这个程序怎么写?
用最笨的枚举法,就是逐个计算,把和102的挑出来,共有32292个结果：
Sub Sum102()
X = Array(4.5,7.5,10.5,13.5,16.5,19.5,22.5,25.5,28.5)
i = 0
For s1 = 0 To 8
For s2 = 0 To 8
For s3 = 0 To 8
For s4 = 0 To 8
For s5 = 0 To 8
For s6 = 0 To 8
Sum = X(s1) + X(s2) + X(s3) + X(s4) + X(s5) + X(s6)
If Sum = 102 Then
i = i + 1
st = X(s1) & "+" & X(s2) & "+" & X(s3) & "+" & X(s4) & "+" & X(s5) & "+" & X(s6) & "=" & Sum
Cells(i,1) = i
Cells(i,2) = st
End If
Next
Next
Next
Next
Next
Next
End Sub