有1 2 3 4 5 五个数 如何用EXCEL求任意3个数之积的和(3个数的组合不重复),任意4个数积之和等等
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/04 04:56:17
有1 2 3 4 5 五个数 如何用EXCEL求任意3个数之积的和(3个数的组合不重复),任意4个数积之和等等
用VBA可做,把任意5个数放在A1:A5
任意3个数之积的和
Sub S3()
Dim i1 As Integer,i2 As Integer,i3 As Integer
Dim s As Integer
s = 0
For i1 = 1 To 3
For i2 = i1 + 1 To 4
For i3 = i2 + 1 To 5
s = s + Range("A" & i1) * Range("A" & i2) * Range("A" & i3)
Next i3
Next i2
Next i1
MsgBox ("S=" & s)
End Sub
任意4个数之积的和
Sub S4()
Dim i1 As Integer,i2 As Integer,i3 As Integer,i4 As Integer
Dim s As Integer
s = 0
For i1 = 1 To 2
For i2 = i1 + 1 To 3
For i3 = i2 + 1 To 4
For i4 = i3 + 1 To 5
s = s + Range("A" & i1) * Range("A" & i2) * Range("A" & i3) * Range("A" & i4)
Next i4
Next i3
Next i2
Next i1
MsgBox ("S=" & s)
End Su
任意3个数之积的和
Sub S3()
Dim i1 As Integer,i2 As Integer,i3 As Integer
Dim s As Integer
s = 0
For i1 = 1 To 3
For i2 = i1 + 1 To 4
For i3 = i2 + 1 To 5
s = s + Range("A" & i1) * Range("A" & i2) * Range("A" & i3)
Next i3
Next i2
Next i1
MsgBox ("S=" & s)
End Sub
任意4个数之积的和
Sub S4()
Dim i1 As Integer,i2 As Integer,i3 As Integer,i4 As Integer
Dim s As Integer
s = 0
For i1 = 1 To 2
For i2 = i1 + 1 To 3
For i3 = i2 + 1 To 4
For i4 = i3 + 1 To 5
s = s + Range("A" & i1) * Range("A" & i2) * Range("A" & i3) * Range("A" & i4)
Next i4
Next i3
Next i2
Next i1
MsgBox ("S=" & s)
End Su
1、2、3-33个数中取任意一个与其它5个数组合6个一组的号.有多少种组合.一组数里不重复号.
1到22之间任意5个数相加等于60的组合有多少(数和数不要重复的)
5个数-1,-2,-3,1,2中,设其各个数之和为n1,任选两数之积为n2,任选3个数之积的和为n3,任选4个数之积的和
请问从1到33的数字中任意3个数之和等于80的组合有哪些
从1,2,3,4,5五个数中任意取出2个数做加法,其和为偶数的概率是 ______.
有4个数,其中任意3个数相加,所得的和分别是84,88,99,110,试求这4个数.
1到22之间任意5个数相加等于52的组合有多少(数和数不要重复的)最好把这些数列列出来
从1,2,3,4,5这五个数字任取2个.求:2个数之积共有多少种情况 重复的算几种情况...
有4个不同的正整数,它们中任意2个数的和都是2的倍数,任意3个数的和都是3的倍数.要使这4个数的和尽可能小,这4个数应该
如果有10个数,从其中选5个数,不重复的选有几种选法的组合数?
从1,2,3,...2002这2002个数去处若干个数,使其中任意两个数的和都能被34整除,最多能取出( )个数.
2·1~2000这2000个数中,最多可取出()个数,使得这些数中任意3个数的和都不能被7整除.