EXCEL中从11个数字选不同6数字的排列组合,但有这样的要求……
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/11/19 12:02:57
EXCEL中从11个数字选不同6数字的排列组合,但有这样的要求……
要求如下:6个数字随机平均分成三组后,组与组之间顺序不论,组内成员之间顺序不论,将这样的组合全部排出来.
比如6个数字是123456,它们进行排列,(1,2)(3,4)(5,6)相同的组合不要:比如(21,34,56)或(65,43,12)等,
而另外的组合有(1,3)(2,4)(5,6)/(1,4)(3,2)(5,6)/(4,5)(3,4)(1,6)等,能否将这些想要的组合排出来呢?
要求如下:6个数字随机平均分成三组后,组与组之间顺序不论,组内成员之间顺序不论,将这样的组合全部排出来.
比如6个数字是123456,它们进行排列,(1,2)(3,4)(5,6)相同的组合不要:比如(21,34,56)或(65,43,12)等,
而另外的组合有(1,3)(2,4)(5,6)/(1,4)(3,2)(5,6)/(4,5)(3,4)(1,6)等,能否将这些想要的组合排出来呢?
COMBIN(6,2)=15
COMBIN(15,3)=455
有455个组合
要先全部列出,非VBA做不出来
VBA也是非常复杂了
再问: 请问您能做出来吗?
再答: Sub test()
Dim j, k, l
Dim brr(1 To 1048576, 1 To 1)
Dim crr(1 To 1048576, 1 To 3)
For j = 1 To 5
For k = j + 1 To 6
brr(n + 1, 1) = "(" & j & "," & k & ")"
n = n + 1
Next
Next
[a1].Resize(UBound(brr), 1) = brr
arr = [a1].CurrentRegion
For i = 1 To UBound(arr) - 2
For ii = i + 1 To UBound(arr) - 1
For iii = ii + 1 To UBound(arr)
crr(M + 1, 1) = arr(i, 1)
crr(M + 1, 2) = arr(ii, 1)
crr(M + 1, 3) = arr(iii, 1)
M = M + 1
Next
Next
Next
[c1].Resize(UBound(crr), 3) = crr
End Sub
这个便是了
如果11个中随机6个算上 那数量是很可怕的
再问: 感谢您的回答!
COMBIN(15,3)=455
有455个组合
要先全部列出,非VBA做不出来
VBA也是非常复杂了
再问: 请问您能做出来吗?
再答: Sub test()
Dim j, k, l
Dim brr(1 To 1048576, 1 To 1)
Dim crr(1 To 1048576, 1 To 3)
For j = 1 To 5
For k = j + 1 To 6
brr(n + 1, 1) = "(" & j & "," & k & ")"
n = n + 1
Next
Next
[a1].Resize(UBound(brr), 1) = brr
arr = [a1].CurrentRegion
For i = 1 To UBound(arr) - 2
For ii = i + 1 To UBound(arr) - 1
For iii = ii + 1 To UBound(arr)
crr(M + 1, 1) = arr(i, 1)
crr(M + 1, 2) = arr(ii, 1)
crr(M + 1, 3) = arr(iii, 1)
M = M + 1
Next
Next
Next
[c1].Resize(UBound(crr), 3) = crr
End Sub
这个便是了
如果11个中随机6个算上 那数量是很可怕的
再问: 感谢您的回答!
EXCEL中从11个数字选不同6数字的排列组合,但有这样的要求……
求EXCEL中11选6的排列组合,它们有这样的要求……
求excel公式,11个数字的排列组合公式
请问如果想做1-49个数字中所有6个数字的排列组合,用EXCEL能做吗?
40个不同的数字有多少种排列组合方法?
请教排列组合问题从1,2,3,4,5,6 这六6个数字中任选3个不同的数字,使3个数之和能被3整除,则不同的取法有( )
从N个数字中,任选3个数字的排列组合数是多少?三个数字里可以重复,但任意两个选择好的 不能重复
排列组合从7个不同的数字中任意选择3个数字为一组,数字不重复,不论顺序,共有多少种情况
排列组合概率:从0,1,2,.,9十个数字中任选3个不同的数字,求三个数字中不含0或5的概率
3个数字排列组合8 6 1这三个数字的排列组合有多少种
excel ,8个数字排列组合
从10个不同的数字中选出8个数,有多少种选法,排列组合的公式是么来