香川组合的递归代码

结果出发

向香川学习，努力做到最好

qq348104184

香川群子 发表于 2012-7-10 20:17
结果组合实际上有个特点，第k列的元素永远只在第k列中出现。

因此，实际上组合总数=m^n

大师 结合所学 自己写的代码 请指教
Option Explicit
Private Type node
    col As New Collection
End Type
Dim n_col As Integer, n_row&
Dim dic, x, y$, x1&
Private lie() As node

Sub a()
    Dim n, m
     n_col = [a1].End(xlToRight).Column
     Set dic = CreateObject("Scripting.Dictionary")
     n_row = [a1].End(xlDown).Row
     x = 1: x1 = 1
     ReDim lie(1 To n_col)
     
     For n = 1 To n_col
     
        With lie(n)
            
            For m = 1 To n_row
        
            .col.Add (Cells(m, n))
            
            Next
            
        End With
     
     Next

End Sub


Sub b(x)
    Dim num, i&, yy
        For Each num In lie(x).col
          If x < n_col Then
             y = y & num
             yy = num
             x = x + 1
             Call b(x)
              x = x - 1
              i = Len(yy)
              y = Left(y, Len(y) - i)
          Else: y = y & num
             dic(x1) = y
             x1 = x1 + 1
             yy = num
             i = Len(num)
             y = Left(y, Len(y) - i)
          End If
         
      Next
   
   
End Sub
Sub c()
Call a
y = ""
Call b(1)
Dim n As Integer
Range("p1").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.items)
End Sub

sky343434

来学习一下

汇铁

喜欢递归。没有理由。
又是四个字一个标点了。

feiren228

从今天起，跟着香川老师学算法，数学没学好，排列组合的问题一点都不会。

7176386

很全，很详细，很强大，感谢楼主分享

LIUZHU

对于递归，以前是这方面的小白，真的要静下心来学习

Kelidai

排列组合在生产排程中非常有用，学习借用。

xgy0214dxy

对我来说有点高深，慢慢研究吧

afdadas

不错，学习了