13 lines
247 B
Text
13 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
|