langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-1.visual
+++ b/Task/Fibonacci-sequence/Visual-Basic-.NET/fibonacci-sequence-1.visual
@ -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