<%
Redupkan Data
aData = Array(3,2,4,1,6,0)
Panggilan ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
'选择排序
Fungsi SelectSort(a_Data)
Redupkan aku, j, k
Terikat redup, t
terikat = UBound(a_Data)
Untuk i = 0 Ke terikat-1
k = saya
Untuk j = i+1 Untuk terikat
Jika a_Data(k) > a_Data(j) Maka
k = j
Akhiri Jika
Berikutnya
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
Selanjutnya
SelectSort = a_Data
Fungsi Akhir
'快速排序
Fungsi QuickSort(a_Data)
Redupkan aku, j
Terikat redup, t
terikat = UBound(a_Data)
Untuk i = 0 Ke terikat-1
Untuk j = i+1 Untuk terikat
Jika a_Data(i) > a_Data(j) Maka
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
Akhiri Jika
Berikutnya
berikutnya
= a_Data
Fungsi Akhir
'冒泡排序
Fungsi BubbleSort(a_Data)
Terikat redup
terikat = UBound(a_Data)
Redupkan bDiurutkan, i, t
bDiurutkan = Salah
Lakukan Saat terikat > 0 Dan bDiurutkan = Salah
bDiurutkan = Benar
Untuk i = 0 Ke batas-1
Jika a_Data(i) > a_Data(i+1) Maka
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
bDiurutkan = Salah
Akhiri Jika
Berikutnya
terikat = terikat - 1
Lingkaran
BubbleSort = a_Data
Fungsi Akhir
'插入排序
Fungsi SisipkanSort(a_Data)
Terikat redup
terikat = UBound(a_Data)
Redupkan i, j, t
Untuk i = 1 Untuk terikat
t = a_Data(i)
j = saya
Lakukan Sementara t<a_Data(j-1) Dan j>0
a_Data(j) = a_Data(j-1)
j = j - 1
Lingkaran
a_Data(j) = t
Berikutnya
SisipkanSort = a_Data
Fungsi Akhir
'输出数组
Sub ResponseArray(a_Data, str)
Redupkan s
s = ""
Respon.Tulis "<b>" & str & "：</b>"
Untuk i = 0 Ke UBound(a_Data)
s = s & a_Data(i) & ","
Berikutnya
s = Kiri(s, Len(s)-1)
Respon. Tulis s
Respon.Tulis "<hr>"
Akhir Sub
%>