vb6 排列組合 遞迴

sss86523

請問各位大大，這段程式碼是列出某字串的排列組合，不過這遞迴到底是什麼意思，一直不能理解...，
求高手講解!!

1. Private Sub Command1_Click()
   
2. Form1.Cls  ' 清空上一次的結果
   
3. Text = InputBox("1234", "123", "ABCDE")
   
4. Call Change(Text, "")
   
5. End Sub
   
6. 
   
7. 
   
8. Function Change(A, B)
   
9.     If Len(A) = Len(B) Then
   
10.        Form1.Print B
    
11.     Else
    
12.         For I = 1 To Len(A)
    
13.             Key = True ' 不讓相同的字串重複使用
    
14. 
    
15.             For J = 1 To Len(B)
    
16.                 If Mid(B, J, 1) = Mid(A, I, 1) Then Key = False
    
17.             Next J
    
18. 
    
19.             If Key Then Call Change(A, B & Mid(A, I, 1))
    
20.         Next I
    
21.     End If
    
22. End Function

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

遞迴的主要作用，就是一個函式可以呼叫自己，跟迴圈不一樣，迴圈是重覆執行，而遞迴是在裡面的程式又再呼叫自己，通常是用在一個常態式的計算或是處理
在你的例子，就是 Change(A, B)裡又再呼叫Change(...)，這就是遞迴

Jeepluo

此程式主要是讓文字的排列組合不重覆出現相同的，我把它縮小了一下演算範圍可看看結果，就知道在做什麼了。
ABCD 四個字元的排組合：

ABCD
ABDC
ACBD
ACDB
ADBC
ADCB
BACD
BADC
BCAD
BCDA
BDAC
BDCA
CABD
CADB
CBAD
CBDA
CDAB
CDBA
DABC
DACB
DBAC
DBCA
DCAB
DCBA