Re: [VB6 ] 關於副程式執行遞迴
※ 引述《stator (別急著吃棉花糖)》之銘言：
: 因為在練習寫一個遞迴程式，當按了按鈕，想要跑出階乘的效果
: 但執行時，輸入完數字後卻失敗，錯誤是指向副程式的 k*result(k-1)
: 說是必須為函數或變數，有試過用函數FUNCTION是正常的
: 但用副程式來寫就錯了。
: 請問這是哪裡錯了呢?謝謝各位前輩
: Private Sub Command1_Click()
: Dim k As Integer
: n = InputBox("請輸入一數")
: Call result(n)
: Print n
: End Sub
: Sub result(ByRef k) '階乘
: If (k = 1) Then
: k = 1
: Else
: k = k * result(k - 1)
: End If
: End Sub
耍白痴了 把剛剛寫的砍掉
--
本來用func來遞迴的話
輸入k=5
func = k*func(k-1)
= 5*func(4) (程式紀錄這邊的k=5然後再次呼叫func)
= ...
= 5*4*3*2*1 (k=5~2都是遞迴產生 1是我們設的中斷條件)
如果用sub的話 還記得ByRef都是存取同一個記憶體位置吧
所以就 輸入k=5
k = k*sub(k-1)
= 5*sub(4)
= 5*4*sub(3)
= ...
當到了中斷條件k=1的時候 副程式返回會怎樣呢
由於存取同一個位置 我們又把k=1
所以就變成k = 1*1*1*1*1
返回1
但是用ByVal的話呢? 那變數周期會在副程式結束時消失
除非設定全域變數 不然怎麼拿到我們要的結果
但是何苦這麼麻煩呢XD 用fun傳回就好了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.240.28.247
※ 編輯: x000032001 來自: 123.240.28.247 (06/05 23:02)
※ 編輯: x000032001 來自: 123.240.28.247 (06/05 23:06)
推
06/06 00:33, , 1F
06/06 00:33, 1F