TOP

Visual Basic Consola - Repetitiva PARA 06




06.  Mostrar los 10 primeros elementos de la serie Fibonacci:

0 , 1 , 1 , 2 , 3 , 5 , 8 , 13 , 21 , 34.


Imports System.Console
Module Module6
    Dim a = 0
    Dim b = 1
    Dim c = 0
    Sub Main()
        For cont = 1 To 10
            Write(c & " ")
            a = b
            b = c
            c = a + b
        Next
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.