关于双向链表排序代码的疑问

onthetrip

正在学习lee1892老师的双向链表排序，但有一句代码我怎么也没有明白：
在第一次执行Call QuickSortByLinkedList(aList, aList(nKeyIndex, L_NEXT), nRight)递归语句时，按理说，aList(aList(nKeyIndex, L_PREV), L_NEXT)的值并没有改变，但在执行了nLeft = i，其值就改变了，没想明白这是什么原因，请各位老师指教一下。

onthetrip

请各位路过的大侠关注一下

onthetrip

贴一下代码

1. Const DATA = 1
   
2. Const L_NEXT = 2
   
3. Const L_PREV = 3
   
4. Sub TestSpeed()
   
5. Dim aData_1(), aData_2(), aList()
   
6. aData_1 = Array(6, 5, 8, 7, 9, 10)
   
7. ReDim aData_2(1 To UBound(aData_1) + 1)
   
8. For i = 0 To UBound(aData_1)
   
9.     aData_2(i + 1) = aData_1(i)
   
10. Next
    
11. ReDim aList(0 To UBound(aData_2), 1 To 3)
    
12. aList(0, L_NEXT) = 1
    
13.   For i = 1 To UBound(aData_2)
    
14.   aList(i, DATA) = aData_2(i): aList(i, L_NEXT) = i + 1: aList(i, L_PREV) = i - 1
    
15.   Next
    
16.   Call QuickSortByLinkedList(aList, 1, UBound(aList))
    
17. End Sub
    
18. Sub QuickSortByLinkedList(aList(), nLeft, nRight)
    
19.   Dim i&, gKey!, nKeyIndex&, nPoint&
    
20.   If nLeft = nRight Then
    
21.   Exit Sub
    
22.   End If
    
23.   nKeyIndex = nLeft
    
24.   gKey = aList(nKeyIndex, DATA)
    
25.   i = nLeft
    
26.   Do
    
27.   i = aList(i, L_NEXT)
    
28.   If aList(i, DATA) <= gKey Then
    
29.     nPoint = aList(i, L_PREV)
    
30.     aList(aList(i, L_PREV), L_NEXT) = aList(i, L_NEXT)
    
31.     If i <> nRight Then
    
32.       aList(aList(i, L_NEXT), L_PREV) = aList(i, L_PREV)
    
33.     Else
    
34.       nRight = aList(i, L_PREV)
    
35.     End If
    
36.     aList(i, L_PREV) = aList(nKeyIndex, L_PREV)
    
37.     aList(i, L_NEXT) = nKeyIndex
    
38.     If nKeyIndex <> nLeft Then
    
39.       aList(aList(nKeyIndex, L_PREV), L_NEXT) = i
    
40.     Else
    
41.       If aList(0, L_NEXT) = nLeft Then
    
42.       aList(0, L_NEXT) = i
    
43.       End If
    
44.       Debug.Print aList(aList(nKeyIndex, L_PREV), L_NEXT)  '????е????Call????????????3
    
45.       nLeft = i
    
46.       Debug.Print aList(aList(nKeyIndex, L_PREV), L_NEXT) '???????????nLeft=i??????????4???
    
47.     End If
    
48.     aList(nKeyIndex, L_PREV) = i
    
49.     i = nPoint
    
50.   End If
    
51.   If i = nRight Then Exit Do
    
52.   Loop
    
53.   If nLeft <> nKeyIndex Then
    
54.   Call QuickSortByLinkedList(aList, nLeft, aList(nKeyIndex, L_PREV))
    
55.   End If
    
56.   If nKeyIndex <> nRight Then
    
57.   Call QuickSortByLinkedList(aList, aList(nKeyIndex, L_NEXT), nRight)
    
58.   End If
    
59. End Sub
    

复制代码

注释不知道为什么是乱码。
就是代码中的debug.print语句，在执行nLeft=i后，值就变了，不解。

onthetrip

顶一下，看周末有没有大侠正好路过