【通用数组算法】生成序列、组合、排列 结果

香川群子

同时假定从中取4个元素数，那么有：

① 假设以0-9这10个数字作为对象元素，则Serial 为自然数序列，如 0000-9999
    具体为：0000,0001,0002,……9998,9999

② 假设以1-8这8个数字作为对象元素，Combin 为组合结果，如 1234-5678
    具体为：1234,1235,1236,……4678,5678

③ 假设以1-4这4个数字作为对象元素，Permut 为排列结果，如 1234-4321
    具体为：1234,1243,1324,……4312,4321

那么上述3种不同要求序列的通用代码如下：

自定义函数 Arr_SerialCombinPermut(m,n,[z],[l]) 得到一个n列的数组。
其中，参数m为终点数值，n为取数位数
z为序列类型，默认z=0时返回序列，z=1时返回组合结果，z=2时返回排列结果。
l为起点数值（自然序列时默认 l=0，也可自行设定，其它组合或排列时不需要该参数）

1. Function Arr_SerialCombinPermut(m&, n&, Optional z& = 0, Optional l& = 0)
   
2.     Dim i&, j&, k&, t&
   
3.     If z = 0 Then k = (m - l + 1) ^ n
   
4.     If z = 1 Then k = WorksheetFunction.Combin(m, n): l = 1
   
5.     If z = 2 Then k = WorksheetFunction.Permut(m, n): ReDim c&(1 To m)
   
6.    
   
7.     ReDim a&(1 To n), b&(k - 1, 1 To n)
   
8.     For j = 1 To n
   
9.         If z = 0 Then a(j) = l
   
10.         If z = 1 Then a(j) = j
    
11.         If z = 2 Then a(j) = j: c(j) = 1
    
12.         b(0, j) = a(j) 'ar(a(j))
    
13.     Next
    
14.    
    
15.     For i = 1 To k - 1
    
16.         For j = n To 1 Step -1
    
17.             If z = 0 Then
    
18.                 If a(j) < m Then a(j) = a(j) + 1: Exit For
    
19.             ElseIf z = 1 Then
    
20.                 If a(j) < m - n + j Then a(j) = a(j) + 1: Exit For
    
21.             Else 'If z = 2 Then
    
22.                 c(a(j)) = 0
    
23.                 For t = a(j) + 1 To m
    
24.                     If c(t) = 0 Then Exit For
    
25.                 Next
    
26.                 If t <= m Then c(t) = 1: a(j) = t: Exit For
    
27.             End If
    
28.         Next
    
29.         For j = j + 1 To n
    
30.             If z = 0 Then
    
31.                 a(j) = l
    
32.             ElseIf z = 1 Then
    
33.                 a(j) = a(j - 1) + 1
    
34.             Else 'If z = 2 Then
    
35.                 For t = 1 To m
    
36.                     If c(t) = 0 Then Exit For
    
37.                 Next
    
38.                 c(t) = 1: a(j) = t
    
39.             End If
    
40.         Next
    
41.         For j = 1 To n
    
42.             b(i, j) = a(j) 'ar(a(j))
    
43.         Next
    
44.     Next
    
45.     Arr_SerialCombinPermut = b
    
46. End Function

复制代码

其实本帖有代码就可以了，不需要附件。

香川群子

等晚上有空，我会再做详细说明。

hongzefm

香川群子 发表于 2015-3-26 14:29
等晚上有空，我会再做详细说明。

第一次和裙子这么近距离啊，收藏，然后学习了：）

张雄友

有个例子才易明白。

thestronger

赶脚是用来研究彩票的，常见他们把数字这样搞来搞去的，我也搞过

香川群子

张雄友 发表于 2015-3-26 20:38
有个例子才易明白。

我知道你最喜欢能自动忽略空白单元格的组合算法了……

本帖代码中第一个序列算法，稍加修改即可做到。
【香川多列组合的数组算法】
① 自动忽略空白单元格
② 按列为单位进行不重复组合

③ 特例：
   特例-1：如果各列不含空白单元格，且各列元素个数相等，则相当于生成全部m进制的n位数序列。
   特例-2：如果各列中元素都是0-9这10个数，那么生成如同 0000-9999的全部自然序列。（10进制的全部4位数）


呵呵。
代码如下：

1. Sub test() 'Multi-Column Combin by kagawa
   
2.     Dim ar, a&(), b(), c&(), i&, j&, k&, l&, m&, n&, tms#
   
3.     tms = Timer
   
4.    
   
5.     m = 10: n = 4
   
6.     ar = [a1].Resize(m, n) '取A1开始的m行n列数据
   
7. '    m = UBound(ar): n = UBound(ar, 2)
   
8.    
   
9.     ReDim a&(1 To n), c&(1 To n)
   
10.     k = 1
    
11.     For j = 1 To n
    
12.         For i = 1 To m
    
13.             If ar(i, j) <> "" Then l = l + 1: ar(l, j) = ar(i, j) '忽略空白单元格
    
14.         Next
    
15.         k = k * l: a(j) = 1: c(j) = l: l = 0
    
16.     Next
    
17.     If k > Rows.Count Then MsgBox k & " > " & Rows.Count & " Err !": Exit Sub
    
18.     '如果组合总数超过工作表最大行数则停止
    
19. 
    
20.     ReDim b(1 To k, 1 To n) '定义存放结果的数组b
    
21.     For i = 1 To k
    
22.         For j = 1 To n
    
23.             b(i, j) = ar(a(j), j) '记录本行组合结果
    
24.         Next
    
25.         For j = n To 1 Step -1
    
26.             If a(j) = c(j) Then a(j) = 1 Else a(j) = a(j) + 1: Exit For
    
27.             '按顺序递增组合算法进行组合变化
    
28.         Next
    
29.     Next
    
30.    
    
31.    '输出结果
    
32.     [a1].Offset(, n + 2).CurrentRegion = ""
    
33.     [a1].Offset(, n + 2).Resize(k, n) = b
    
34.     MsgBox Format(Timer - tms, "0.00s ") & k
    
35. End Sub
    

复制代码

SerialCombinPermut.zip (17.57 KB, 下载次数: 363)

2015-3-27 17:08 上传

点击文件名下载附件

香川群子

其它两个算法很简单，就是从m个元素中提取n个元素进行不重复组合，或进行排列组合。

张雄友

香川群子 发表于 2015-3-27 17:11
我知道你最喜欢能自动忽略空白单元格的组合算法了……

本帖代码中第一个序列算法，稍加修改即可做到。 ...

1楼的自定义函数是做什么用的？ How to use ？ For example ？

下标越界

晦涩难懂呀，特别是排列数序列生成代码。

张雄友

数组算法，不是递归，所以没有逗号的。看漏了！