用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”front of Fibonacci sequence“CSTR（n）”item sum:“sum

endsub

（1/√5）*{[（1√5）/2]^n-[（1-√5）/2]^n這是Fibonacci sequence的通式。得到差分方程的Z變換。計(jì)算前n項(xiàng)之和非常簡(jiǎn)單

Sn=a（n2）-1。

an=（1/√5）×{[（1+√5）/2]^n-[（1-√5）/2]^n}。

因此，Sn=（1/√5）×{[（1+√5）/2]^（n2）-[（1-√5）/2]^（n2）}-1

注意：n是正整數(shù)。