用遞歸法求fibonacci數(shù)列 用C語(yǔ)言編程，編一個(gè)求Fibonacci數(shù)列前n項(xiàng)和程序？
用C語(yǔ)言編程，編一個(gè)求Fibonacci數(shù)列前n項(xiàng)和程序？PrivateFunctionF（nAsLong）AsLongIfn>2ThenF=F（n-1）F（n-2）ElseF=1EndIfEnd
用C語(yǔ)言編程，編一個(gè)求Fibonacci數(shù)列前n項(xiàng)和程序？
PrivateFunctionF（nAsLong）AsLong
Ifn>2Then
F=F（n-1）F（n-2）
Else
F=1
EndIf
EndFunction
PrivateSubCommand1 Click（）
dimaasstring
dimiaslong
dimsumaslong
a=InputBox（“input Fibonacci sequence item number”，“input”
n=CLng（a）
CLS
forI=1ton
sum=sum f（I）
next
print“Fibonacci序列前”CSTR（n）“項(xiàng)和：”sum
endsub