langs a-z

Task/Fibonacci-sequence/VBA/fibonacci-sequence-1.vba

@@ -0,0 +1,12 @@
+Public Function Fib(n As Integer) As Long
+    Dim fib0, fib1, sum As Long
+    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

Task/Fibonacci-sequence/VBA/fibonacci-sequence-2.vba

@@ -0,0 +1,3 @@
+Public Function RFib(Term As Integer) As Long
+  If Term < 2 Then RFib = Term Else RFib = RFib(Term - 1) + RFib(Term - 2)
+End Function