遞回

Waroger

有時候用遞迴寫真的方便很多

1. '全排列
   
2. Private Sub Command1_Click()
   
3.     Dim a As String
   
4.     a = "123"
   
5.     Cls
   
6.     cal_1 a, "", String(Len(a), " ")
   
7. End Sub
   
8. 
   
9. Sub cal_1(a As String, s As String, k As String)
   
10.     Dim i As Integer, x As String
    
11.    
    
12.     If Len(s) = Len(a) Then Print s: Exit Sub
    
13.    
    
14.     For i = 1 To Len(a)
    
15.         If Mid$(k, i, 1) = " " Then
    
16.            x = k: Mid$(x, i, 1) = "*"
    
17.            cal_1 a, s & Mid(a, i, 1), x
    
18.         End If
    
19.     Next
    
20. End Sub
    
21. 
    
22. '6組號碼3星連碰
    
23. Private Sub Command2_Click()
    
24.     Dim r() As String, s() As String, a As String
    
25.    
    
26.     a = "1 2 3 4 5 6"
    
27.     r = Split(a)
    
28.     Cls
    
29.     Call cal_2(r(), s(), 0, 0)
    
30. End Sub
    
31. 
    
32. Sub cal_2(r() As String, s() As String, p As Integer, t As Integer)
    
33.     If t = 3 Then Print Join(s, ","): Exit Sub
    
34.     For i = p To UBound(r)
    
35.         ReDim Preserve s(t): s(t) = r(i)
    
36.         Call cal_2(r(), s(), i + 1, t + 1)
    
37.     Next
    
38. End Sub
    
39. 
    
40. Private Sub Form_Load()
    
41.     AutoRedraw = True
    
42. End Sub

複製代碼

...

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