0xDe

[Visual Basic 6.0] 簡單利用遞迴概念列出排列組合

 

 

'# [Visual Basic 6.0] 簡單利用遞迴概念列出排列組合
'# 0xDe

Private Sub Command1_Click()
List1.Clear  ' 清空上一次的結果
Call Change(Text1, "")
End Sub


Function Change(A, B)
    If Len(A) = Len(B) Then
        List1.AddItem B
    Else
        For I = 1 To Len(A)
            Key = True ' 不讓相同的字串重複使用
            
            For J = 1 To Len(B)
                If Mid(B, J, 1) = Mid(A, I, 1) Then Key = False
            Next J
            
            If Key Then Call Change(A, B & Mid(A, I, 1))
        Next I
    End If
End Function

 

[Visual Basic 6.0] 簡單利用遞迴概念列出排列組合.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問