遞回

88663234

我想學ＶＢ6的遞迴，但不知道要從哪裡開始下手！！有哪位大大可以教我

Jeepluo

1. ' 記得開頭用 function 的方式即可，傳回的方式分為傳址及及傳值
   
2. ' 傳值（處理結果）方式比較簡單：把處理後的結果傳回即可，可以用「變更名」，也可以用 return 回傳
   
3. ' 傳址的話，如以下的範例可以傳回兩個值 一個是「變更名」的處理結果，一個是「傳入值n」的處理結果，但傳入的方式須改為 (ByVal n Integer), 此方式開頭也可使用 sub
   
4. 
   
5. Function 變更名(ByVal n As Integer) As Integer ' 傳回數值
   
6.     If n <= 1 Then
   
7.         Return 1
   
8.     Else
   
9.         Return n * 6
   
10.     End If
    
11. End Function

複製代碼

...

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

可以去查高普考程式語言的題目，滿多要求用遞迴寫
你會發現有些東西用遞迴寫真的比較簡單(超少)
而且效率真的有差(迴圈佳) 瞭解運作原理就好

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

複製代碼

...

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

88663234 發表於 2014-2-27 11:16 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

真的!!遞迴沒辦法除錯~哭哭，我不太會下他的終止條件

小弟也是初學都，也想來學遞迴，但看起來真的很難啊，請有什麼資料可以參考嗎...

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

Jeepluo

還是可以除錯的，除了可以 if  exit for 跳出廻圈或者指定第幾圈要做什麼事外，也可以使用 try 當程式發生錯誤時跳出種序。

88663234

Jeepluo 發表於 2014-2-27 10:39 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

指令在合適的地方使用，有意想不到的效果，不同的功能應用得當，不但指令行數可以減少，還可以上速度變快， ...

真的!!遞迴沒辦法除錯~哭哭，我不太會下他的終止條件...

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

88663234

皇臾 發表於 2014-2-21 08:11 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

以程式角度來看，遞迴的方式就是：一個函式中執行的程式碼，會在呼叫自己。

請參考下列網址：

請問一下有沒有題目+做法...

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

88663234

kludge 發表於 2014-2-23 01:12 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

前輩說: 遞迴只應天上有, 凡人應該用迴圈
真的有必要才去用, 不然一般do就很好用了

這我知道，而且遞迴很吃記憶體，但老師教的東西有限，有很多還是要自己去學
...

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

Jeepluo

指令在合適的地方使用，有意想不到的效果，不同的功能應用得當，不但指令行數可以減少，還可以上速度變快，遞回當然也有他的用處，這東東還分傳值及傳址（可以同時回傳多個參數），有些時候do錯了，是會出不來的。

前輩說: 遞迴只應天上有, 凡人應該用迴圈
真的有必要才去用, 不然一般do就很好用了

如果真的要寫, 建議是先寫回來的判斷式(通常不超過20行的程式)
確認遞迴可以執行且返回無誤, 其他就如樓上所說: 呼叫自己
沒呼叫就大家可以回家啦

以程式角度來看，遞迴的方式就是：一個函式中執行的程式碼，會在呼叫自己。

請參考下列網址：

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員