作业帮 > 综合 > 作业

组合相乘再相加的问题比如10个数1,2,3,4,5,6,7,8,9,10随机取5个数相乘再相加(比如1*2*3*4*5+

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/24 10:00:04
组合相乘再相加的问题
比如10个数
1,2,3,4,5,6,7,8,9,10
随机取5个数相乘再相加(比如1*2*3*4*5+2*3*4*5*6+3*4*5*6*7+.)
组合相乘再相加的问题比如10个数1,2,3,4,5,6,7,8,9,10随机取5个数相乘再相加(比如1*2*3*4*5+
执行如下VBA程序
Sub try()
Dim i1 As Integer,i2 As Integer,i3 As Integer,i4 As Integer,i5 As Integer,i As Integer
i = 1
For i1 = 1 To 6
For i2 = i1 + 1 To 7
For i3 = i2 + 1 To 8
For i4 = i3 + 1 To 9
For i5 = i4 + 1 To 10
Cells(i,1) = i1
Cells(i,2) = i2
Cells(i,3) = i3
Cells(i,4) = i4
Cells(i,5) = i5
i = i + 1
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
F1输入公式:
=SUMPRODUCT((A1:A252)*(B1:B252)*(C1:C252)*(D1:D252)*(E1:E252))
计算结果是902055
再问: 能否用excel一个公式解决?
再答: 程序求出10取5的全部不重复组合(252组),再用SUMPRODUCT函数计算,这个方法够简单了。试图用一个公式解决全部问题,不现实。