作者A1pha ([αλφα])
看板Visual_Basic
标题Re: [VB6 ] 函式自己呼叫自己
时间Tue Feb 27 11:56:10 2007
※ 引述《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
1F:推 fumizuki:第二行不是写了吗...为1的时候离开函数 02/27 12:31
2F:推 fumizuki:离开是离开这一层的Ex,前一层的还没结束啊 02/27 12:32
3F:推 A1pha:我再研究一下好了@@" 递回函式从高中数学课一直头痛到现在 02/28 01:23