Question

How to print the fibonacci sequence recursively and with for loop in VB.NET

Answer 1

Module Module1

    Sub Main()

        ' for loop: series of 15 fibonacci numbers (n = 15)
        Dim prev As Integer = -1
        Dim nextt As Integer = 1
        Dim sum As Integer = 0
        Dim n As Integer = 15
        Dim i As Integer

        For i = 0 To n
            sum = prev + nextt
            Console.Write("{0, 4}", sum)
            prev = nextt
            nextt = sum
        Next

    End Sub

End Module

'run:
' 
'   0   1   1   2   3   5   8  13  21  34  55  89 144 233 377 610

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        ' recursively:  series of 15 fibonacci numbers (n = 15) 
        Dim n As Integer = 15

        For i = 0 To n
            Console.Write("{0, 4}", Fibonacci(i))
        Next

        Console.WriteLine()

    End Sub

    Function Fibonacci(n As Integer) As Integer
        If (n = 0) Then
            Return 0
        ElseIf (n = 1) Then
            Return 1
        Else
            Return Fibonacci(n - 2) + Fibonacci(n - 1)
        End If
    End Function

End Module

'run:
' 
'   0   1   1   2   3   5   8  13  21  34  55  89 144 233 377 610

 

70+ SQL courses for beginners and professionals