Download code

Jump to: navigation, search

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

 1 ' The authors of this work have released all rights to it and placed it
 2 ' in the public domain under the Creative Commons CC0 1.0 waiver
 3 ' (http://creativecommons.org/publicdomain/zero/1.0/).
 4 ' 
 5 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 ' IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 ' CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 ' TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 ' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 ' 
13 ' Retrieved from: http://en.literateprograms.org/Fibonacci_numbers_(Visual_Basic_.NET)?oldid=5759
14 
15 Imports System.Console
16 
17 Module Fibonacci
18     Function fib(ByVal n)
19         If n < 2 Then Return n Else Return fib(n - 1) + fib(n - 2)
20     End Function
21 
22 
23     Sub Main()
24         Dim n As Integer
25         For n = 1 To 30
26             WriteLine(n & ":" & fib(n))
27         Next
28     End Sub
29 End Module


hijacker
hijacker
hijacker
hijacker