[VB6 ] 函式自己呼叫自己

[A1pha ([αλφα])]

會出現「堆疊空間不足」的錯誤訊息...

其實我不是要寫遞迴函式，
只是想呼叫自己一次，
不過不知道該怎麼寫QQ
希望能請教一下。

該函式簡略版：

Function Ex(Optional hand As String) As Single
    Dim per_sec, Spec As Single
    Dim CountMain, CountOff, IsUse, OffFix As Integer
    Select Case hand
        Case "m"
            CountMain = 1
            CountOff = 0
            IsUse = 1
            OffFix = 0
        Case "o"
            CountMain = 0
            CountOff = 1
            IsUse = chk.Value
            OffFix = 0
        Case Else
            CountMain = 1
            CountOff = 1
            IsUse = 1
            If chkOffhand.Value = 1 Then OffFix = 0 Else OffFix = 1
    End Select

    per_sec = CountMain * 某常數 + CountOff * 某常數
    Ex = per_sec * (某函式) * (某常數) + CountMain * (某常數) * (某函式)
    Spec = 某函式 * 某函式
    Ex = Ex + Ex * IsUse * Spec - OffFix * Ex("o") * Spec
    Ex = Round(to_hit_times, 2)
End Function

--


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.8.112.152
※ 編輯: A1pha           來自: 124.8.112.152        (02/27 03:28)
推 fumizuki:你函式根本沒有結束的判斷式
推 fumizuki:用 Static 宣告一個變數記錄已經執行過一次