vb应用--快速排序-法实现二维数组的指定列排序

 

' 演示部分
' 在窗口加一个command按钮
' 启动后把窗体最大化,方便观看.

' ****************************************
Private   Sub Command1_Click() Sub Command1_Click()
'这里不妨用10000个元素,
'事实上在窗体打出的第一个数字时,排序就已经完成了!!.
'可以不用再考虑排序的效率了
Dim myAy(10000, 10) As Long
Dim i As Long
Dim j As Long


'进行随机的给数组赋值
For i = 0 To UBound(myAy, 1)
  For j = 0 To UBound(myAy, 2)
   myAy(i, j) = Fix(10000 * Rnd)
  Next
Next

'输入到窗口
Dim cl As Long
cl = Val(InputBox("请输入要排序的列 1~10