Re: [VB6 ] 函式自己呼叫自己

看板Visual_Basic作者 ([αλφα])時間18年前 (2007/02/27 11:56), 編輯推噓3(300)
留言3則, 2人參與, 最新討論串3/4 (看更多)
※ 引述《fumizuki (矇面加菲獅)》之銘言: 感謝板大~程式能動了XD 不過有些不瞭解的地方, 恕我笨,問一下~XD : : Function Ex(Optional hand As String) As Single : Static RunCount As Integer : If RunCount = 1 Then Exit Function : RunCount = 1 ^^^^^^^^^^^^這裡已經讓RunCount = 1 : : Dim per_sec, Spec As Single : : Dim CountMain, CountOff, IsUse, OffFix As Integer : : per_sec = CountMain * 某常數 + CountOff * 某常數 : : Ex = per_sec * (某函式) * (某常數) + CountMain * (某常數) * (某函式) : : Spec = 某函式 * 某函式 : : Ex = Ex + Ex * IsUse * Spec - OffFix * Ex("o") * Spec ^^^^^^^^ 問一下,為什麼程式讀到這裡的時候, 不會因為重新呼叫Ex函式, 然後讀到If RunCount = 1 Then Exit Function這一句,因而離開Ex()。 反而能夠繼續執行下去?@@" : : Ex = Round(to_hit_times, 2) : RunCount = 0 : : End Function -- 知人善任 先帝帳下 魏延成棟梁 抑才貶能 孔明軍中 文長變廢將 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 124.8.65.99

02/27 12:31, , 1F
第二行不是寫了嗎...為1的時候離開函數
02/27 12:31, 1F

02/27 12:32, , 2F
離開是離開這一層的Ex,前一層的還沒結束啊
02/27 12:32, 2F

02/28 01:23, , 3F
我再研究一下好了@@" 遞迴函式從高中數學課一直頭痛到現在
02/28 01:23, 3F
文章代碼(AID): #15uwlSCU (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #15uwlSCU (Visual_Basic)