Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-1.vb
+++ b/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-1.vb
@ -0,0 +1,12 @@
+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