Revision: 34890
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 29, 2010 18:17 by indra
Initial Code
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
Initial URL
http://en.literateprograms.org/Fibonacci_numbers_%28Visual_Basic_.NET%29#chunk%20def:fib
Initial Description
Initial Title
Fibonacci numbers
Initial Tags
Initial Language
VB.NET