作者A1pha ([αλφα])
看板Visual_Basic
标题[VB6 ] 函式自己呼叫自己
时间Tue Feb 27 03:26:14 2007
会出现「堆叠空间不足」的错误讯息...
其实我不是要写递回函式，
只是想呼叫自己一次，
不过不知道该怎麽写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)
1F：推 fumizuki:你函式根本没有结束的判断式 02/27 07:23
2F：推 fumizuki:用 Static 宣告一个变数记录已经执行过一次 02/27 07:23