※ 引述《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)