FibonacciReeks

Module FibonacciReeksen

    Sub Main()
        PrintFibonacciReeks(1)
        PrintFibonacciReeks(2)
        PrintFibonacciReeks(3)
        PrintFibonacciReeks(6)
        PrintFibonacciReeks(8)
        '
        Console.ReadLine()
    End Sub
   Sub

    End Sub
End Module

Module FibonacciReeksen
 
    Sub Main()
        PrintFibonacciReeks(1)
        PrintFibonacciReeks(2)
        PrintFibonacciReeks(3)
        PrintFibonacciReeks(6)
        PrintFibonacciReeks(8)
        '
        Console.ReadLine()
    End Sub
   Sub
 
    End Sub
End Module

Private Sub PrintFibonacciReeks(ByVal i As Integer)

    Console.Write("Fibonnaci Reeks: ")
    Dim first As Integer = 0
    Dim second As Integer = 1

    If i = 0 Or i = 1 Then
        Console.Write(first & " ")
    Else
        Console.Write(second & " ")
    End If

    Dim counter As Integer
    For counter = 2 To i Step 1
        Dim current As Integer = first + second
        Console.Write(current & " ")
        first = second
        second = current
    Next
    Console.WriteLine()

End Sub

Private Sub PrintFibonacciReeks(ByVal i As Integer)
 
    Console.Write("Fibonnaci Reeks: ")
    Dim first As Integer = 0
    Dim second As Integer = 1
 
    If i = 0 Or i = 1 Then
        Console.Write(first & " ")
    Else
        Console.Write(second & " ")
    End If
 
    Dim counter As Integer
    For counter = 2 To i Step 1
        Dim current As Integer = first + second
        Console.Write(current & " ")
        first = second
        second = current
    Next
    Console.WriteLine()
 
End Sub