RECURSIVIDAD: FIBONACCI

Public Class Form2
Dim a, b, N As Integer

Function Fibonacci(ByVal N As Integer) As Integer
If N = 0 Or N = 1 Then
Return N
Else
Return Fibonacci(N - 1) + Fibonacci(N - 2)
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = Fibonacci(a)
Label2.Text = b
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
End Class