'Visual Basic 2008/2010 Recursie Procedures en Functies
Module Exercise1Solution
    Sub Main()
        Console.WriteLine(GetRowToZero(5))
        Console.WriteLine(GetRowToZero(-3))
        Console.WriteLine(GetRowToZero(0))
        '
        Console.ReadLine()
    End Sub
    Function GetRowToZero(ByVal value As Integer) As String
        If value = 0 Then
            GetRowToZero = 0
        ElseIf value < 0 Then
            GetRowToZero = value & " " & GetRowToZero(value + 1)
        Else 'If value > 0 Then
            GetRowToZero = value & " " & GetRowToZero(value - 1)
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.