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