12 lines
247 B
Text
12 lines
247 B
Text
Function Fib(ByVal n As Integer) As Decimal
|
|
Dim fib0, fib1, sum As Decimal
|
|
Dim i As Integer
|
|
fib0 = 0
|
|
fib1 = 1
|
|
For i = 1 To n
|
|
sum = fib0 + fib1
|
|
fib0 = fib1
|
|
fib1 = sum
|
|
Next
|
|
Fib = fib0
|
|
End Function
|