visual basic program for fIBONACCI numbers? 1

[grierfield]

does anyone have a VB program module for fIBONACCI numbers?

thanks

 

[white605]

There is Code here for vb

http://www.kdkeys.net/forums/thread/614.aspx

This old world keeps spinning round - It's a wonder tall trees ain't layin' down

 

[SkipVought]

grierfield,

Welcome to Tek-Tips.

does anyone have a VB program module for fIBONACCI numbers?

That's not how it works, here at Tek-Tips. These are forums for professionals, who are experiencing problems with their tasks.

Your question seems like it might be a school assignment.

Can you explain?

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[MajP]

http://lmgtfy.com/?q=vb+code+fibonacci+sequence

 

[grierfield]

no it is not - that request was just for personal Aggrandizement for a senior citizen

 

[SkipVought]

I'm with ya pops -- 67!!! If you're younger than me, yer just a kid!

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[grierfield]

You guys are the best – thanks – it makes my day

 

[NWBeaver]

I made one up just for fun using Excel.
Here is what I came up with.
It just calculates the numbers in the series up to the limit you enter.

Sub Fibonacci()

Dim Fn() As Single 'Type Long required for a limit greater than 183

limit = 20 'Enter the series calculation limit here.
ReDim Fn(0 To limit) 'Size the array for the series limit

Fn(0) = 0 'Always 0
Fn(1) = 1 'Always 1

Fna = 0
Fnb = 1
Fnc = 0
Fnx = 0

'The first two numbers of the series are always 0 and 1
'the next number is then the sum of preceding two numbers
For x = 2 To limit
    Fnx = Fna + Fnb
    Fnc = Fnb
    Fnb = Fnx
    Fna = Fnc
    Fn(x) = Fnx
    
Debug.Print x, Fn(x)'Prints Fn(2)... Fn(limit)

Next

Erase Fn() 'Clears the memory when finished.

End Sub