'Visual Basic 2010 Recursie Procedures en Functies
Module Exercise3Solution
    Sub Main()
        PlaceSteps(2)
        Console.WriteLine()
        '
        PlaceSteps(10)
        Console.WriteLine()
        '
        PlaceSteps(11)
        Console.ReadLine()
    End Sub
    Sub PlaceSteps(ByVal distance As Integer)
        Dim stepDistance As Integer
        If distance = 1 Then
            stepDistance = 1
            Console.WriteLine(stepDistance)
        Else
            If distance >= 3 Then
                stepDistance = 3
            ElseIf distance >= 1 Then
                stepDistance = 1
            End If
            Console.WriteLine(stepDistance)
            PlaceSteps(distance - stepDistance)
        End If
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.