Ejercicio
Función Fibonacci
Objetivo
Cree un programa en Visual Basic que use la recursividad para calcular un número en la serie de Fibonacci (en la que los dos primeros elementos son 1, y para los otros elementos, cada uno es la suma de los dos anteriores).
Código
Imports System
Public Class exercise108
Public Shared Function Fibonacci(ByVal number As Integer) As Integer
If (number = 1) OrElse (number = 2) Then
Return 1
Else
Return Fibonacci(number - 1) + Fibonacci(number - 2)
End If
End Function
Public Shared Sub Main()
Dim number As Integer
Console.Write("Enter a number: ")
number = Convert.ToInt32(Console.ReadLine())
Console.WriteLine("Fibonacci of {0} is {1}", number, Fibonacci(n))
End Sub
End Class