作者frank760417 (法兰克)
看板Visual_Basic
标题[VBA ] 如何使用 QuickSort 的 VBA 程式 (网路流通的版本)
时间Wed Dec 1 01:42:00 2010
Sub QuickSort(a() As Double, f As Integer, e As Integer)
Dim i As Integer, j As Integer, X As Double, temp As Double
i = f: j = e
X = a((f + e) / 2, 1)
While i <= j
While (a(i, 1) > X And i < e)
i = i + 1
Wend
While (X > a(j, 1) And j > f)
j = j - 1
Wend
If i <= j Then
temp = a(i, 1)
a(i, 1) = a(j, 1)
a(j, 1) = temp
temp = a(i, 0)
a(i, 0) = a(j, 0)
a(j, 0) = temp
i = i + 1
j = j - 1
End If
Wend
If f < j Then Call QuickSort(a(), f, j)
If i < e Then Call QuickSort(a(), i, e)
End Sub
请问这样怎麽改成 Function 的型式 ,让我可以 自己放想要排序的阵列呢,并且传出矩阵
谢谢大家 ...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.36.182.38
1F：→ hulapig:不要用Sub宣告，用Function就行了 12/01 05:46
2F：→ MOONRAKER:本来不就可以了 12/01 09:08