'Visual Basic 2010 Recursie Procedures en Functies
Module Example5
    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 Integer) As Integer
        If ordinal = 1 OrElse ordinal = 2 Then
            GetFibo = 1
        ElseIf ordinal > 2 Then
            GetFibo = GetFibo(ordinal - 1) + GetFibo(ordinal - 2)
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.