Fibonacci-Folge iterativ erzeugen

1
2
3
4
5
6
7
8
9
10
11

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