fibonacci series in vb

[steve_rm]

I am writting a recursive program in Visaul basic that will work out the fibonacci series. I have written some code, but it does not work. Can anyone tell me what is wrong with it.

Private Sub CmdFindNumber_Click()
Dim number As Integer
Dim answer As Integer

number = InputBox("Please enter a number to find", "Find Fib Number")
LblNumber.Caption = number
answer = FibNumber(number)
LblAnswer.Caption = answer

End Sub

Private Function FibNumber(number As Integer) As Integer

If (number > 2) Then
(FibNumber(number - 2) + FibNumber(number - 1))'should call itself
End If

End Function

many thanks in advance

[steve_rm]

Just work it out. this is the code that works.

Private Sub CmdFindNumber_Click()
Dim number As Integer
Dim answer As Integer

number = InputBox("Please enter a number to find", "Find Fib Number")
LblNumber.Caption = number
answer = FibNumber(number)
LblAnswer.Caption = answer

End Sub

Private Function FibNumber(number As Integer) As Integer

If (number > 2) Then
FibNumber = (FibNumber(number - 2) + FibNumber(number - 1))
Else
FibNumber = 1
End If

End Function

[Guv]

There is another thread with some valid recursive Fibonacci prgrams. A search of the maths forum should find it easily.