Calcular n primeros términos de la serie de Fibonacci Codigo Fuente en Visual Basic

Problema
Calcular n primeros términos de la serie de Fibonacci

Solución
El usuario ingresa el número de términos que desea visualizar de la serie de Fibonacci.
La sucesión de Fibonacci es la siguiente sucesión infinita de números naturales:

                       0,1,1,2,3,5,8,13,21,34,55,89,144,233,377

Ejemplo

• Entrada: 5

• Salida: 0 1 1 2 3

Codigo Fuente en Visual Basic

Public Class Form1
    Dim var As String = "0"
    Public Function fibonacci(ByVal contador As Integer,
    ByVal n As Integer, ByVal p1 As Integer, ByVal p2 As Integer)
        If (contador <> n) Then
            var = var + " - " + Trim(p2)
            TextBox2.Text = var
            fibonacci(contador + 1, n, p2, p1 + p2)
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        n = TextBox1.Text
        If (n > 0) Then
            fibonacci(0, n - 1, 0, 1)
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic