<%
Dim aData
aData = Array(3,2,4,1,6,0)
Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
'选择排序
Funktion SelectSort(a_Data)
Dim i, j, k
Dim gebunden, t
gebunden = UBound(a_Data)
Für i = 0 Bis gebunden-1
k = ich
Für j = i+1 Zur Grenze
Wenn a_Data(k) > a_Data(j) Dann
k = j
Ende wenn
Nächste
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
Weiter
SelectSort = a_Data
Funktion beenden
'快速排序
Funktion QuickSort(a_Data)
Dim i, j
Dim gebunden, t
gebunden = UBound(a_Data)
Für i = 0 Bis gebunden-1
Für j = i+1 Zur Grenze
Wenn a_Data(i) > a_Data(j) Dann
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
Ende wenn
Nächste
Nächster
QuickSort = a_Data
Funktion beenden
'冒泡排序
Funktion BubbleSort(a_Data)
Schwach gebunden
gebunden = UBound(a_Data)
Dim bSorted, i, t
bSorted = Falsch
Tun Sie Whilebound > 0 und bSorted = False
bSorted = True
Für i = 0 bis Bound-1
Wenn a_Data(i) > a_Data(i+1) Dann
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
bSorted = Falsch
Ende wenn
Nächste
gebunden = gebunden - 1
Schleife
BubbleSort = a_Data
Funktion beenden
'插入排序
Funktion InsertSort(a_Data)
Schwach gebunden
gebunden = UBound(a_Data)
Dim i, j, t
Für i = 1 Zur Grenze
t = a_Data(i)
j = ich
Do While t<a_Data(j-1) And j>0
a_Data(j) = a_Data(j-1)
j = j - 1
Schleife
a_Data(j) = t
Nächste
InsertSort = a_Data
Endfunktion
'输出数组
Sub ResponseArray(a_Data, str)
Dim s
s = ""
Response.Write „<b>“ & str & „：</b>“
Für i = 0 bis UBound(a_Data)
s = s & a_Data(i) & ","
Nächste
s = Left(s, Len(s)-1)
Response.Write s
Response.Write „<hr>“
Sub
%>
beenden