VB.网络递归问题

我在c#中有一个运行良好的递归函数。但是当我把它转换成VB。Net，它给出了索引错误。奇怪的是，当它在VB中调试时，代码会转到'End Sub'行，并再次进入递归函数调用。知道为什么会这样吗?

这是一个简单的函数，用于从组列表中更正已排序的年龄组。请看下面的代码:

最终预期组为0-10、30-60和75-90。

Public Class AgeGroup
    Public Lower As Integer
    Public Higher As Integer
End Class
Public Class RngTest
    Public Sub MakeUniqueRanges(ByVal ranges As List(Of AgeGroup))
        For i As Integer = 0 To ranges.Count - 2
            Dim first As AgeGroup = ranges(i)
            Dim second As AgeGroup = ranges(i + 1)
            If first.Higher > second.Lower Then
                'range is mixed..construct a new range by mixing the two ranges
                Dim newRange As New AgeGroup()
                newRange.Lower = first.Lower
                newRange.Higher = second.Higher
                'delete the existing 2 ranges
                ranges.RemoveAt(i)
                ranges.RemoveAt(i)
                ranges.Insert(i, newRange)
                MakeUniqueRanges(ranges)
            End If
        Next
    End Sub
End Class
Module RngModule
    Sub Main()
        Dim ranges As New List(Of AgeGroup)()
        ranges.Add(New AgeGroup() With {.Lower = 0, .Higher = 10})
        ranges.Add(New AgeGroup() With {.Lower = 30, .Higher = 40})
        ranges.Add(New AgeGroup() With {.Lower = 35, .Higher = 50})
        ranges.Add(New AgeGroup() With {.Lower = 45, .Higher = 60})
        ranges.Add(New AgeGroup() With {.Lower = 75, .Higher = 90})
        Dim test As New RngTest()
        test.MakeUniqueRanges(ranges)
        Console.ReadLine()
    End Sub
End Module

这是一个很好的c#方法

static void MakeUniqueRanges(List<AgeGroup> ranges)
{
    for (int i = 0; i < ranges.Count - 1; i++)
    {
        AgeGroup first = ranges[i];
        AgeGroup second = ranges[i + 1];
        if (first.Higher > second.Lower)
        {
            //range is mixed..
            AgeGroup newRange = new AgeGroup();
            newRange.Lower = first.Lower;
            newRange.Higher = second.Higher;
            ranges.RemoveAt(i);
            ranges.RemoveAt(i);
            ranges.Insert(i, newRange);
            MakeUniqueRanges(ranges);
        }
    }
}

static void MakeUniqueRanges(List<AgeGroup> ranges)
{
    for (int i = 0; i < ranges.Count - 1; i++)
    {
        AgeGroup first = ranges[i];
        AgeGroup second = ranges[i + 1];
        while (first.Higher > second.Lower)
        {
            //range is mixed..
            AgeGroup newRange = new AgeGroup();
            newRange.Lower = first.Lower;
            newRange.Higher = second.Higher;
            ranges.RemoveAt(i); //Remove "first"
            ranges[i] = newRange; //Replace "second"
            if (i == ranges.Count - 1) return; //Are we now at the end of the list?
            first = ranges[i];
            second = ranges[i + 1];
        }
    }
}

Public Sub MakeUniqueRanges(ByVal ranges As List(Of AgeGroup))
    Dim i as Integer = 0
    While i <= ranges.Count - 2
        Dim first As AgeGroup = ranges(i)
        Dim second As AgeGroup = ranges(i + 1)
        While first.Higher > second.Lower
            'range is mixed..construct a new range by mixing the two ranges
            Dim newRange As New AgeGroup()
            newRange.Lower = first.Lower
            newRange.Higher = second.Higher
            ranges.RemoveAt(i) 'Remove "first"
            ranges(i) = newRange
            If i = ranges.Count - 1 Then Return
            first = ranges(i)
            second = ranges(i + 1)
        End While
        i = i + 1
    End While
End Sub

Dim i = 5
For j = 0 To i
    i = 1
    Console.WriteLine("Hello")
Next