Question

How to generate fibonacci series in VB.NET

Answer 1

Imports System
 
Public Class Program
    Public Shared Sub generateFibonacciSeries(ByVal n As Integer)
		Dim prev As Integer = -1, _next As Integer = 1
      	Dim fibonacci As Integer = 1
		
        While fibonacci <= n
        	fibonacci = prev + _next
			Console.Write(fibonacci & " ")
			prev = _next
            _next = fibonacci
        End While
    End Sub
 
    Public Shared Sub Main()
        Dim n As Integer = 500
		
        generateFibonacciSeries(n)
		
    End Sub
End Class
     
     
     
     
' run:
'
' 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile