请老师帮我改下这个一维数字排序的代码

嘘世

1. '我希望在排序后能得到排序后的数组,并能得到排序后的数组元素对应原数组的位置数组,非常感谢!

复制代码

1. 
   
2. 
   
3. Public Sub QSort(MyArray, Lboundx, Uboundx, Optional TF As Boolean = True)
   
4. 'TF=TRUE 升序
   
5. 'TF=FALSE 降序
   
6.     Dim i, j, x, Y, arr()
   
7.     i = Lboundx
   
8.     j = Uboundx
   
9.     'ReDim arr(i To j)
   
10.     '找出数组的中点
    
11.     x = MyArray((Lboundx + Uboundx) / 2)
    
12.     While (i <= j)
    
13.         
    
14.         If TF Then '※正排序
    
15.             '找出比中点大的数
    
16.             While (MyArray(i) < x And i < Uboundx)
    
17.                 i = i + 1
    
18.             Wend
    
19.             '找出比中点小的数
    
20.             While (x < MyArray(j) And j > Lboundx)
    
21.                 j = j - 1
    
22.             Wend
    
23.         
    
24.         
    
25.         Else        '※逆排序
    
26.             '找出比中点大的数
    
27.             While (MyArray(i) > x And i < Uboundx)
    
28.                 i = i + 1
    
29.             Wend
    
30.             '找出比中点小的数
    
31.             While (x > MyArray(j) And j > Lboundx)
    
32.                 j = j - 1
    
33.             Wend
    
34.         End If
    
35.         
    
36.         '互换这两个数
    
37.         If (i <= j) Then
    
38.             Y = MyArray(i)
    
39.             MyArray(i) = MyArray(j): arr(i) = j
    
40.             MyArray(j) = Y: arr(j) = i
    
41.             i = i + 1
    
42.             j = j - 1
    
43.         End If
    
44.     '用于指明重复次数的全局变量
    
45.         'gIterations = gIterations + 1
    
46.     Wend
    
47.     '未完成时递归调用
    
48.     If (Lboundx < j) Then QSort MyArray, Lboundx, j, TF
    
49.     If (i < Uboundx) Then QSort MyArray, i, Uboundx, TF
    
50. End Sub
    

复制代码

嘘世

我希望在排序后能得到排序后的数组,并能得到排序后的数组元素对应原数组的位置数组,非常感谢!比如A=array(3,7,5)
       排序之后可以获得
       数组B存放排序后的结果(如按升序):3>5>7，数组C存放排序后的数组元素所在的原数组位置(如按升序):1>3>2

百度不到去谷歌

这是快速排序代码 你要得到位置数组很简单  修改如下 传入位置数组即可 test函数中是调用方式和测试结果

1. Option Explicit
   
2. 'Dim brr() '位置数组
   
3. Public Sub QSort(MyArray, brr, Lboundx, Uboundx, Optional TF As Boolean = True)
   
4. 'TF=TRUE 升序
   
5. 'TF=FALSE 降序
   
6.     Dim i, j, x, Y, arr()
   
7.     i = Lboundx
   
8.     j = Uboundx
   
9.     '找出数组的中点
   
10.     x = MyArray((Lboundx + Uboundx) / 2)
    
11.     While (i <= j)
    
12.         
    
13.         If TF Then '※正排序
    
14.             '找出比中点大的数
    
15.             While (MyArray(i) < x And i < Uboundx)
    
16.                 i = i + 1
    
17.             Wend
    
18.             '找出比中点小的数
    
19.             While (x < MyArray(j) And j > Lboundx)
    
20.                 j = j - 1
    
21.             Wend
    
22.         
    
23.         
    
24.         Else        '※逆排序
    
25.             '找出比中点大的数
    
26.             While (MyArray(i) > x And i < Uboundx)
    
27.                 i = i + 1
    
28.             Wend
    
29.             '找出比中点小的数
    
30.             While (x > MyArray(j) And j > Lboundx)
    
31.                 j = j - 1
    
32.             Wend
    
33.         End If
    
34.         
    
35.         '互换这两个数
    
36.         If (i <= j) Then
    
37.             
    
38.             Y = MyArray(i): MyArray(i) = MyArray(j): MyArray(j) = Y '数值换位
    
39.             Y = brr(i): brr(i) = brr(j): brr(j) = Y '位置换位
    
40.             i = i + 1
    
41.             j = j - 1
    
42.         End If
    
43.     '用于指明重复次数的全局变量
    
44.         'gIterations = gIterations + 1
    
45.     Wend
    
46.     '未完成时递归调用
    
47.     If (Lboundx < j) Then QSort MyArray, brr, Lboundx, j, TF
    
48.     If (i < Uboundx) Then QSort MyArray, brr, i, Uboundx, TF
    
49. End Sub
    
50. Private Sub Test()
    
51.    
    
52.     Dim i&, j&, k&, arr, brr
    
53.     arr = [{5,3,7,1,8}]
    
54.     ReDim brr(1 To 5) '位置数组
    
55.     For i = 1 To 5
    
56.         brr(i) = i '准备位置数组
    
57.     Next
    
58.      QSort arr, brr, 1, 5
    
59.     For i = 1 To UBound(arr) '输出排序结果和位置
    
60.         Debug.Print arr(i), brr(i)
    
61.     Next
    
62. End Sub
    
63. 
    

复制代码

嘘世

百度不到去谷歌 发表于 2014-10-21 22:52
这是快速排序代码 你要得到位置数组很简单  修改如下 传入位置数组即可 test函数中是调用方式和测试结果

非常感谢，今天太晚明天再测试