Im Vergleich zur rekursiven Methode, dessen Aufwand exponentiell mit jeder Zahl steigt, verläuft die iterative Weise linear, und ist somit um einiges Schneller.
http://de.wikipedia.org/wiki/Fibonacci-Folge
Function fib(ByVal n As Integer) As Integer
Dim f1 As Integer = 1, f2 As Integer = 0
For i As Integer = 1 To n
n = f1 + f2
f1 = f2
f2 = n
Next
Return n
End Function
Kommentare zum Snippet