Download code

From LiteratePrograms

Back to Fibonacci_numbers_(Visual_Basic_.NET)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

fibonacci.vb

 ' Copyright (c) 2008 the authors listed at the following URL, and/or
 ' the authors of referenced articles or incorporated external code:
 ' http://en.literateprograms.org/Fibonacci_numbers_(Visual_Basic_.NET)?action=history&offset=20080804173524
 ' 
 ' Permission is hereby granted, free of charge, to any person obtaining
 ' a copy of this software and associated documentation files (the
 ' "Software"), to deal in the Software without restriction, including
 ' without limitation the rights to use, copy, modify, merge, publish,
 ' distribute, sublicense, and/or sell copies of the Software, and to
 ' permit persons to whom the Software is furnished to do so, subject to
 ' the following conditions:
 ' 
 ' The above copyright notice and this permission notice shall be
 ' included in all copies or substantial portions of the Software.
 ' 
 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 ' IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 ' CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 ' TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 ' 
 ' Retrieved from: http://en.literateprograms.org/Fibonacci_numbers_(Visual_Basic_.NET)?oldid=14185
 
 Imports System.Console
 
 Module Fibonacci
     Function fib(ByVal n)
         If n < 2 Then Return n Else Return fib(n - 1) + fib(n - 2)
     End Function
 
 
     Sub Main()
         Dim n As Integer
         For n = 1 To 30
             WriteLine(n & ":" & fib(n))
         Next
     End Sub
 End Module