题目内容：

vb 利用递归求数列前10项之和（该数列的分子和分母均为斐波那契序列）
数列为1/2,2/3,3/5,5/8,8/13,13/21…,Fib(n)/Fib(n+1),(n=1,2,3,4…)
斐波那契通项公式为
Fib(n)=1,n=1,2
Fib(n-2)+Fib(n-1),n>=3
程序代码如下：
private sub command1_click()
dim n as integer
for n=1 to 10
sum=sum+fib(n)/fib(n+1)
next n
print "sum";sum
end sub
private function fib(a as integer)
if a=1 then
elseif a=2 then
fib=2
else
fib=fib(a-1)+fib(a-2)
end if
end function
这个程序代码哪位高手能完整的逐句解释一下呢?