vb中使用快速排序方法的實例

這仍然是基本的，關鍵是妳想如何對數字進行排序，但使用數據庫的存儲過程進行排序應該會更快！在vb中有幾種排序方法，在學習basic時有壹些示例，即典型的冒泡方法。

public Sub or bub（P（）為Double，可選的SortMethod為Integer = 1）

Dim M壹樣長，n壹樣長，I壹樣長，j壹樣長

將K設為雙精度，將kk設為雙精度，將f設為雙精度，將D設為雙精度

Dim Temp（）為雙精度

M = 1

n =下邊界（P）

ReDim Temp（1到n）為Double

K = M: kk = n: f = 1

do While（f & lt；& gt0)

j = kk - 1

kk = 0

對於i = K到j

if（P（I）& gt；p（I+1）然後

D = P（I）:P（I）= P（I+1）:P（I+1）= D:kk = I

如果…就會結束

接下來我

如果（kk = 0），那麽

f = 0

如果…就會結束

j = K + 1: K = 0

對於i = kk至j步驟-1

if（P（I-1）》p（I）那麽

D = P（I）:P（I）= P（I-1）:P（I-1）= D:K = I

如果…就會結束

接下來我

如果（K = 0），那麽

f = 0

如果…就會結束

環

根據選擇的排序方法對結果進行排序。

If SortMethod & lt& gt1隨後從低到高再到高。

對於i = 1到n

溫度（I）=壓力（I）

然後

對於i = 1到n

p（I）=溫度（n + 1 - i）

然後

如果…就會結束

末端接頭

事實上，關於這個例子有很多教科書。我是幾年前玩電腦前學會紙上冒泡法的，呵呵。