推 fumizuki:第二行不是寫了嗎...為1的時候離開函數 02/27 12:31
推 fumizuki:離開是離開這一層的Ex，前一層的還沒結束啊 02/27 12:32
推 A1pha:我再研究一下好了@@" 遞迴函式從高中數學課一直頭痛到現在 02/28 01:23
※ 引述《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