Question

How to print the first N fibonacci numbers in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub printFibonacciNumbers(ByVal N As Integer)
        If N < 1 Then Return
        Console.Write("0 1 ")
        Dim nexttemp As Integer, currentnumber As Integer = 0, nextnumber As Integer = 1

        For i As Integer = 0 To N - 2 - 1
            nexttemp = nextnumber
            nextnumber = currentnumber + nextnumber
            currentnumber = nexttemp
            Console.Write(nextnumber & " ")
        Next
    End Sub

    Public Shared Sub Main()
        Dim n As Integer = 15
        printFibonacciNumbers(n)
    End Sub
End Class
	
	
	
	
' run:
'
' 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377
'

 

70+ SQL courses for beginners and professionals