【vb递归算法】vb递归函数题急有一个数列前两项为1从第三项开始...

网友回答

【答案】 这是菲坡那切数列
　　function fib(byval n as long) as long
　　 if n=1 or n=2 then
　　 fib=1
　　 exit function
　　 end if
　　 fib=fib(n-1)+fib(n-2)
　　end function 追问： 能详细点补？？？ 追答： Private Sub Command1_Click() Dim k As Long k = InputBox(请输入一个正整数:, , 0) If k