September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Fibonacci-sequence/VBA/fibonacci-sequence-1.vba
+++ b/Task/Fibonacci-sequence/VBA/fibonacci-sequence-1.vba
@ -1,5 +1,5 @@
-Public Function Fib(n As Integer) As Long
-    Dim fib0, fib1, sum As Long
+Public Function Fib(ByVal n As Integer) As Variant
+    Dim fib0 As Variant, fib1 As Variant, sum As Variant
    Dim i As Integer
    fib0 = 0
    fib1 = 1
@ -7,6 +7,6 @@ Public Function Fib(n As Integer) As Long
        sum = fib0 + fib1
        fib0 = fib1
        fib1 = sum
-    Next
+    Next i
    Fib = fib0
 End Function