数列1、1、2、3、5、8、13、21、34、……，

前2项为1、1，之后的每一项等于前2项之和，

称之为斐波那契数列。

For $i = 0 To 5
        ConsoleWrite('_CalcFbn(' & $i & ')=' & _CalcFbn($i) & @CRLF)
Next
Func _CalcFbn($n)
        If $n < 2 Then Return $n
        Return _CalcFbn($n - 1) + _CalcFbn($n - 2);
EndFunc   ;==>_CalcFbn

;===================================
;算法 
Local $ii = 60  ;位
Local $nX = ___Test($ii)
MsgBox(0, '', $ii & ' = ' & $nX)

Func ___Test($ii, $n0 = 0, $n1 = 1, $nX = 1)
        If $ii = 1 Then Return $nX
        $ii -= 1
        $nX = $n0 + $n1
        $n0 = $n1
        $n1 = $nX
        Return ___Test($ii, $n0, $n1, $nX)
EndFunc   ;==&gt;___Test </strong>```
<strong> <br />
原贴地址：http://www.autoit3.cn/thread-56431-1-1.html</strong> 
<p>
    <br />
</p>

本文固定链接: http://jianyiit.com/post-284.html