Program To Find Fibonacci Series upto given Number Using function in VB 6

Program To Find Fibonacci Series upto given Number Using function in VB 6

This video about how to find fibonacci series up to n number using using function in visual basic 6.0


=====================Source code================

Function fibonacci(n As Integer) As Integer
Dim i As Integer, f0 As Integer, f1 As Integer
Dim fibo As Integer
f0 = 0
f1 = 1
For i = 1 To n Step 1
fibo = f0 + f1
Print fibo
f1 = f0
f0 = fibo
Next i
End Function

Private Sub Command1_Click()
fibonacci (10)
End Sub

how to find fibonacci series using function in visual basic 6
fibonacci series algorithm
fibonacci algorithm
Visual Basic (Programming Language),Fibonacci Number