Dim arr(25000, 1) As Single
'这是一个测试实例,需要在窗口中添加一个List控件。
Private Sub Form_Load()
'初始化数组内的数据,随机填写
Dim i As Integer
For i = 0 To 25000
arr(i, 0) = Rnd * 1000
arr(i, 1) = Rnd * 800
Next
'调用快速排序过程,效率比冒泡高许多
Call QuickSort(arr, 0, 25000)
'将排序后的数组显示成List中,以便验证
For i = 0 To 25000
List1.AddItem Format(arr(i, 0), "0.000") & vbTab & Format(arr(i, 1), "0.000")
Next
End Sub
'二维数组快速排序的算法,如果你的x,y的数值类型不是Single,请按实际情况把下面的Single改为相应数值类型
Sub QuickSort(MyArray() As Single, L, R)
Dim i As Integer, j As Integer, X As Single, Y As Single, M As Single
i = L
j = R
'找出数组的中点
M = MyArray((L + R) / 2, 0)
While (i <= j)
'找出比中点大的数
While (MyArray(i, 0) < M And i < R)
i = i + 1
Wend
'找出比中点小的数
While (M < MyArray(j, 0) And j > L)
j = j - 1
Wend
'互换这两个数
If (i <= j) Then
X = MyArray(i, 0)
Y = MyArray(i, 1)
MyArray(i, 0) = MyArray(j, 0)
MyArray(i, 1) = MyArray(j, 1)
MyArray(j, 0) = X
MyArray(j, 1) = Y
i = i + 1
j = j - 1
End If
Wend
'未完成时递归调用
If (L < j) Then Call QuickSort(MyArray(), L, j)
If (i < R) Then Call QuickSort(MyArray(), i, R)
End Sub
追问非常感谢!你给的是按x值从小到大排序的,但是只要把里面的MyArray(i, 0) 就可以了。非常感谢!