Visual Basic.NET How to Program (PDF)

Chapter 6 Procedures 223
23 lblResult.Text = "Fibonacci Value is " & Fibonacci(number)
24 End Sub ' cmdCalculate_Click
25
26 ' calculate Fibonacci value recusively
27 Function Fibonacci(ByVal number As Integer) As Long
28
29 ' check for base cases
30 If number = 1 OrElse number = 0 Then
31 Return number
32 Else
33 Return Fibonacci(number - 1) + Fibonacci(number - 2)
34 End If
35
36 End Function ' Fibonacci
37
38 End Class ' FrmFibonacci
Fig. Fig. 6.20 6.20 Recursively generating Fibonacci numbers (part 2 of 3).