[VB6 ] 函式自己呼叫自己
會出現「堆疊空間不足」的錯誤訊息...
其實我不是要寫遞迴函式，
只是想呼叫自己一次，
不過不知道該怎麼寫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)
推
02/27 07:23, , 1F
02/27 07:23, 1F
推
02/27 07:23, , 2F
02/27 07:23, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
33
68