VB 費氏數列

Private Function f(a)

If a = 1 Or a = 2 Then

f = 1



Else: f = f(a - 2) + f(a - 1)

End If



End Function



Private Sub Command1_Click()



Dim x As Integer

x = Int(Val(Text1))

Label1 = f(x)



End Sub



Private Sub Command2_Click()

Dim x As Integer

x = Int(Val(Text1))

ans = 1

a = 1

b = 1





For i = 3 To x

ans = a + b

a = b

b = ans

Next

Label2 = ans



End Sub