请教老师：如何得到巨大的M个0与1的全组合，谢谢！

ak47ok

如题、详见附件，有劳高手！

为提高实用、减少排列数，修改了附件，谢谢！

huang1314wei

楼主，有何意义？

ak47ok

huang1314wei 发表于 2015-9-5 12:51
楼主，有何意义？

分类用，谢谢！

crazy0qwer

ak47ok 发表于 2015-9-5 13:15
分类用，谢谢！

1. Dim Ar
   
2. Dim N As Long, R As Long
   
3. Sub Crazy0qwer()
   
4.     Dim C As Long
   
5.     N = 10  '位数
   
6.    
   
7.     ReDim Ar(1 To 2 ^ N, 1 To 1)
   
8.     R = 1
   
9.     Cr 0
   
10.     Columns("A").NumberFormatLocal = "@"
    
11.     Range("A1:A" & 2 ^ N) = Ar
    
12. End Sub
    
13. Function Cr(ByVal M As Long)
    
14.     Dim I As Long, S As String
    
15.     M = M + 1
    
16.     S = Ar(R, 1)
    
17.     For I = 0 To 1
    
18.         Ar(R, 1) = S & I
    
19.         If M = N Then R = R + 1
    
20.         If M < N Then
    
21.             Cr M
    
22.         End If
    
23.     Next
    
24. End Function
    

复制代码

ak47ok

crazy0qwer 发表于 2015-9-5 13:21

谢谢老师，但未能解决高位数据的问题（N=25时出错了）
另能否针对一楼新的附件重新修改公式，再次感谢@

yjh_27

ak47ok 发表于 2015-9-5 14:03
谢谢老师，但未能解决高位数据的问题（N=25时出错了）
另能否针对一楼新的附件重新修改公式，再次感谢@

Dim Ar() As String

crazy0qwer

ak47ok 发表于 2015-9-5 14:03
谢谢老师，但未能解决高位数据的问题（N=25时出错了）
另能否针对一楼新的附件重新修改公式，再次感谢@

五位一个组？每组只有一个1？
这样只有 5^5=3125个而已，还是比较简单的。
思路就是分组移动 1 的位置，然后组合起来。

yjh_27

ak47ok 发表于 2015-9-5 14:03
谢谢老师，但未能解决高位数据的问题（N=25时出错了）
另能否针对一楼新的附件重新修改公式，再次感谢@

五位一个组,每组只有一个1

1. Sub aa()
   
2. Dim arr() As Integer
   
3. Dim jw(4) As Integer
   
4. 
   
5. m = 25
   
6. If (m Mod 5) > 0 Then MsgBox m & "需为5的倍数": Exit Sub
   
7. n = m \ 5
   
8. 
   
9. ReDim arr(1 To 5 ^ n, 1 To m)
   
10. 
    
11. For i = 1 To UBound(arr)
    
12.     For jj = 0 To 4
    
13.         arr(i, jj * 5 + jw(jj) + 1) = 1
    
14.     Next
    
15.     jw(4) = jw(4) + 1
    
16.     j = 4
    
17.     Do While jw(j) = 5
    
18.         jw(j) = 0
    
19.         j = j - 1
    
20.         If j < 0 Then Exit Do
    
21.         jw(j) = jw(j) + 1
    
22.     Loop
    
23. Next
    
24. 
    
25. Range("a1").Resize(UBound(arr), m) = arr
    
26. 
    
27. End Sub
    

复制代码

yjh_27

参见附件。

香川群子

其实就是一个5位数、
每个数位展开为1个5位数，而这个数位上的数字，就代表1的位置。
如： 12325 就是 10000 01000 00100 01000 00001

从11111-55555的全部展开 即可。

1. Sub test() 'by kagawa 2015/09/05
   
2.     Dim i&, j%, n%
   
3.    
   
4.     n = 5
   
5.     ReDim a%(1 To n), b%(1 To n ^ n, 1 To n * n)
   
6.     For j = 1 To n
   
7.         a(j) = 1: b(1, (j - 1) * n + 1) = 1
   
8.     Next
   
9.    
   
10.     For i = 2 To n ^ n
    
11.         For j = n To 1 Step -1
    
12.             If a(j) < n Then a(j) = a(j) + 1: Exit For '不足5时+1 否则进位
    
13.         Next
    
14.         For j = j + 1 To n
    
15.             a(j) = 1 '超5进位 后面数位上的数字都初始化=1
    
16.         Next
    
17.         '到这里就产生了1个新的5位数组合
    
18. 
    
19.         For j = 1 To n
    
20.             b(i, (j - 1) * n + a(j)) = 1 '把这个5位数组合 转换翻译为楼主需要的5*5展开格式
    
21.         Next
    
22.     Next
    
23.    
    
24.     [a1].Resize(i - 1, n * n) = b '输出结果到工作表
    
25. End Sub

复制代码