作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 函式自己呼叫自己
时间Tue Feb 27 07:25:58 2007
※ 引述《A1pha ([αλφα])》之铭言：
: 会出现「堆叠空间不足」的错误讯息...
: 其实我不是要写递回函式，
: 只是想呼叫自己一次，
: 不过不知道该怎麽写QQ
: 希望能请教一下。
: 该函式简略版：
: Function Ex(Optional hand As String) As Single
Static RunCount As Integer
If RunCount = 1 Then Exit Function
RunCount = 1
: 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)
RunCount = 0
: End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.68.49
※ 编辑: fumizuki 来自: 123.194.68.49 (02/27 07:26)