'Visual Basic 2010 Recursie Procedures en Functies
Module Exercise6Solution
    Sub Main()
        Dim fiboNumbers As Integer()
        fiboNumbers = GetFiboNumbers(10)
        '
        For Each fiboNumber As Integer In fiboNumbers
            Console.Write(fiboNumber & " ")
        Next
        '
        Console.ReadLine()
    End Sub
    Function GetFiboNumbers(ByVal ordinal As Integer) As Integer()
        Dim fiboNumbers As Integer()
        If ordinal = 1 Then
            fiboNumbers = New Integer() {1}
        ElseIf ordinal = 2 Then
            fiboNumbers = New Integer() {1, 1}
        ElseIf ordinal > 2 Then
            fiboNumbers = GetFiboNumbers(ordinal - 1)
            ReDim Preserve fiboNumbers(ordinal - 1)
            fiboNumbers(ordinal - 1) = fiboNumbers(ordinal - 2) + _
                                       fiboNumbers(ordinal - 3)
        End If
        GetFiboNumbers = fiboNumbers
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.