一段让VS编译器抽风的代码！

[huaxiamengqing]

最近在搞一些算法，需要一个全排列的算法。的确写出来，代码如下

 Public Sub Permutation(pre As List(Of Int16), Slist As List(Of Int16), outlist As List(Of List(Of Int16)))
        If Slist.Count = 1 Then
            Dim Mrang As New List(Of Int16)
            Mrang.AddRange(pre)
            Mrang.AddRange(Slist)
            outlist.Add(Mrang)
            Return
        End If
        For i As Int16 = 0 To Slist.Count - 1
            Dim Mint16 As Int16 = Slist(i)
            Dim Mprelist As New List(Of Int16)
            Mprelist.AddRange(pre)
            Mprelist.Add(Mint16)
            Dim MSlist As New List(Of Int16)
            MSlist.AddRange(Slist)
            MSlist.RemoveAt(i)
            Permutation(Mprelist, MSlist, outlist)
        Next
    End Sub

感觉泛型真好使。测试代码如下

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Slist As New List(Of Int16)
        For i As Int16 = 1 To 4
            Slist.Add(i)
        Next
        Dim Mpre As New List(Of Int16)
        Dim Moutlist As New List(Of List(Of Int16))
        Permutation(Mpre, Slist, Moutlist)
        Dim sb As New System.Text.StringBuilder

        For Each li As List(Of Int16) In Moutlist

            For Each mint As Int16 In li
                sb.Append(mint)
            Next
            sb.Append(vbCr)
        Next
        Debug.Print(sb.ToString)
    End Sub

一测试OK，获得的全排列很正确。
然后当我运行第二次的时候让我不禁崩溃，无论我改任何代码，结果总是第一次运行的结果。除非我复制代码再打开一个编译器--，靠，难道内存泄露了？刚才还说泛型好用呢。
究竟是什么原因，请各位高手给鉴定鉴定。

[51Crack]

看不懂，乱~

[一根葱的无奈]

用using定义试试

[fxm7l]

想看两眼，你的地球转得我眼晕。

[Bullatus]

清理工程再编译试试

[DeepinXi]

???????????? 没保存吧

[种草德鲁伊]

编译器脑瘫了！

[以专业开发人员为伍]

谁知道你改什么代码了？