Práctica de Programación | Serie de Fibonacci VB.NET

Práctica de Programación | Serie de Fibonacci VB.NET

---

Práctica básica en las materias de programación.

Lo que dice Wikipedia:

En matemáticas, la sucesión de Fibonacci (a veces llamada erróneamente serie 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,610,987,1597...

La espiral de Fibonacci: una aproximación de la espiral áurea generada dibujando arcos circulares conectando las esquinas opuestas de los cuadrados ajustados a los valores de la sucesión;1 adosando sucesivamente cuadrados de lado 0, 1, 1, 2, 3, 5, 8, 13, 21 y 34.

La sucesión comienza con los números 0 y 1,2 y a partir de estos, cada término es la suma de los dos anteriores.

Sabiendo esto podemos definir lo siguiente:

c = a + b

a = b

b = c

c = 0

c = 1 + 2 = 3

a = 2

b = 3

c = 2 + 3 = 5

a = 3

b = 5

c = 3 + 5 = 8

a = 5

b = 8

c = 5 + 8 = 13

Y así sucesivamente, este vendría siendo nuestro algoritmo y el que debemos programar.

Práctica

Realiza una aplicación de escritorio que muestre la sucesión o serie de fibonacci, el usuario indicara hasta cual número desea calcular, incluir los botones de limpiar y salir.

Controles: Label, TextBox, ListBox, Button.

Práctica resuelta.

Interfaz 

Anteriormente hicimos el algoritmo, vamos a programarlo tal cual como lo hicimos en el ejemplo de arriba, como vemos es una serie, entonces usaremos un ciclo.

Código:

Botón Calcular

Private Sub calcularButton_Click(sender As Object, e As EventArgs) Handles calcularButton.Click
        Dim a, b, c As Integer
        a = 0
        b = 1


        For c = 0 To Val(numeroTextBox.Text)
            c = a + b
            a = b
            b = c
            serieListBox.Items.Add(c)
        Next c
    End Sub

Botón Limpiar y Botón Salir

Private Sub limpiarButton_Click(sender As Object, e As EventArgs) Handles limpiarButton.Click
        numeroTextBox.Text = String.Empty
        serieListBox.Items.Clear()
    End Sub

    Private Sub salirButton_Click(sender As Object, e As EventArgs) Handles salirButton.Click
        Application.Exit()
    End Sub

Corrida del programa

Espero les sea de ayuda.

Saludos.