'Visual Basic 2010 Recursie Procedures en Functies
Module Example6
    Sub Main()
        Console.WriteLine(GetFibo(1))
        Console.WriteLine(GetFibo(2))
        Console.WriteLine(GetFibo(3))
        Console.WriteLine(GetFibo(4))
        Console.WriteLine(GetFibo(5))
        Console.WriteLine(GetFibo(6))
        Console.WriteLine(GetFibo(7))
        Console.WriteLine(GetFibo(8))
        Console.WriteLine(GetFibo(9))
        Console.WriteLine(GetFibo(10))
        '
        Console.ReadLine()
    End Sub
    Function GetFibo(ByVal ordinal As Byte) As Integer
        GetFibo = 1
        If ordinal > 2 Then
            Dim fibo1 As Short = 1
            Dim fibo2 As Short = 1
            Dim count As Byte = 2
            Do Until count = ordinal
                Dim backup As Integer = fibo2
                fibo2 += fibo1
                fibo1 = backup
                count += 1
            Loop
            GetFibo = fibo2
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.