[已解决]选出如此组合

mmc998 · 发表于 2015-2-26 19:52

本帖最后由 mmc998 于 2015-2-27 06:19 编辑

选出如此的组合，比如行2的六码组合，987，184，607，501，953，436，组成的20个三号码组合，第一个987，184，607，不重复个数是7。第二个987，184，501，不重复个数也是7。第三个987，184，953，不重复个数也是7.第四个987，184，436，不重复个数也是7。第五个987，607，501，不重复个数也是7。第六个987，607，953，不重复个数也是7。第七个987，607，436，不重复个数也是7。第八个987，501，953，不重复个数也是7。第九个987，501，436，不重复个数是九。第十个，987，953，436，不重复个数也是7。第十一个，184，607，501，不重复个数也是7。第十二个184，607，953，不重复个数是9.第十三个，184，607，436，不重复个数也是7。第十四个184，501，953，不重复个数也是7。第十五个，184，501，436，不重复个数也是7，第十六个184，953，436，不重复个数也是7。第十七个607，501，953，不重复个数也是7。第十八个，607，501，436，不重复个数也是7。第十九个607，953，436，不重复个数也是7。第二十个，501，953，436，不重复个数也是7。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-27 05:29

无解，代码取符合条件的组合个数为18

Sub Macro1()
Dim arr, brr, w(9), i&, n%, j%, j2%, j3%, s%
[g:g] = ""
arr = Range("a2").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
n = UBound(arr, 2)
For i = 1 To UBound(arr)
s = 0
For j = 1 To n - 2
For j2 = j + 1 To n - 1
For j3 = j2 + 1 To n
zf = arr(i, j) & arr(i, j2) & arr(i, j3)
For k = 1 To 9
z = Mid$(zf, k, 1)
w(z) = z
Next
If Len(Join(w, "")) = 7 Then s = s + 1 '不重复个数7
Erase w
Next
Next
Next
If s = 18 Then brr(i, 1) = "符合" '符合条件的组合个数
Next
Range("g2").Resize(UBound(brr)) = brr
End Sub

复制代码

跳转到最佳答案楼层

mmc998 · 发表于 2015-2-26 19:53

工作簿选六个.rar (17.57 KB, 下载次数: 9)

dsmch · 发表于 2015-2-27 05:29

无解，代码取符合条件的组合个数为18

Sub Macro1()
Dim arr, brr, w(9), i&, n%, j%, j2%, j3%, s%
[g:g] = ""
arr = Range("a2").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
n = UBound(arr, 2)
For i = 1 To UBound(arr)
s = 0
For j = 1 To n - 2
For j2 = j + 1 To n - 1
For j3 = j2 + 1 To n
zf = arr(i, j) & arr(i, j2) & arr(i, j3)
For k = 1 To 9
z = Mid$(zf, k, 1)
w(z) = z
Next
If Len(Join(w, "")) = 7 Then s = s + 1 '不重复个数7
Erase w
Next
Next
Next
If s = 18 Then brr(i, 1) = "符合" '符合条件的组合个数
Next
Range("g2").Resize(UBound(brr)) = brr
End Sub

复制代码

香川群子 · 发表于 2015-2-27 08:26

dsmch 发表于 2015-2-27 05:29
无解，代码取符合条件的组合个数为18

【无解，代码取符合条件的组合个数为18】

呵呵，服务周到啊。

写成自定义函数更方便、结果更清晰。

Function f&(r As Range)
Dim a(9), i1&, i2&, i3&, j&, s$
For i1 = 1 To 4
For i2 = i1 + 1 To 5
For i3 = i2 + 1 To 6
s = r(i1) & r(i2) & r(i3)
For j = 1 To 9
a(Mid(s, j, 1)) = 1
Next
If Len(Join(a, "")) = 7 Then f = f + 1
Erase a
Next i3, i2, i1
End Function

复制代码

Chk=7.zip (19.59 KB, 下载次数: 13)

香川群子 · 发表于 2015-2-27 08:58

0-9的10个数可以组成=Combin(10,3)=120个3位数组合，
这120个3位数组合，任取6个又可以组成=Combin(120,6)=3652745460个6码组合。

这其中，是否会有符合楼主要求的一组6个3位数中，任取3个组成=Combin(6,3)=20组9位数，
这20个9位数都能满足：【每一组含有不多、不少，正好7个不同的数字】

呵呵，有空编写程序来计算验证一下。可能需要较长时间的。

		自动登录	找回密码
密码			注册