用遞歸算法編寫求斐波那契數列前n項和的程序

Private Function F(n As Long) As Long

If n > 2 Then

F = F(n - 1) + F(n - 2)

Else

F = 1

End If

End Function

Private Sub Command1_Click()

Dim a As String

Dim i as long

Dim n as long

Dim sum as long

a = InputBox("輸入斐波那契數列項數", "輸入")

n = Clng(a)

Cls

For i=1 to n

sum = sum + F(i)

Next

Print "斐波那契數列前";Cstr(n);"項和：";sum

End Sub

上一篇:C語言怎麽讓鍵盤輸入數字到數組裏？

下一篇:如何用JAVA語言寫出帶有顏色和字體的文字？