皮肤溃疡:几种常用排序算法(asp)

来源：百度文库编辑：中财网时间：2024/05/05 16:54:22

<%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), "冒泡排序")
'选择排序
Function SelectSort(a_Data)
Dim i, j, k
Dim bound, t
bound = UBound(a_Data)For i = 0 To bound-1
k = i
For j = i+1 To bound
If a_Data(k) > a_Data(j) Then
k = j
End If
Next
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
NextSelectSort = a_Data
End Function
'快速排序
Function QuickSort(a_Data)
Dim i, j
Dim bound, t
bound = UBound(a_Data)For i = 0 To bound-1
For j = i+1 To bound
If a_Data(i) > a_Data(j) Then
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
End If
Next
NextQuickSort = a_Data
End Function
'冒泡排序
Function BubbleSort(a_Data)
Dim bound
bound = UBound(a_Data)
Dim bSorted, i, t
bSorted = FalseDo While bound > 0 And bSorted = FalsebSorted = True
For i = 0 To bound-1
If a_Data(i) > a_Data(i+1) Then
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
bSorted = False
End If
Next
bound = bound - 1
LoopBubbleSort = a_Data
End Function
'插入排序
Function InsertSort(a_Data)
Dim bound
bound = UBound(a_Data)
Dim i, j, tFor i = 1 To bound
t = a_Data(i)
j = i
Do While t0
a_Data(j) = a_Data(j-1)
j = j - 1
Loop
a_Data(j) = t
NextInsertSort = a_Data
End Function'输出数组
Sub ResponseArray(a_Data, str)
Dim s
s = ""
Response.Write "" & str & "："
For i = 0 To UBound(a_Data)
s = s & a_Data(i) & ","
Next
s = Left(s, Len(s)-1)
Response.Write s
Response.Write "

"
End Sub%>
本文来自: 站长之家(http://www.doozz.com) 详细出处参考：http://www.doozz.com/View/30/30010102/1363.html

asp排序算法用VB实现常用排序算法的动态演示？结构体排序算法什么是起泡排序算法?? 急求一排序算法合并排序算法 vb选择排序算法内部排序算法比较内部排序算法比较工资的几种算法? 朋友们给我介绍几种常用的ASP.NET开发工具! 关于《计算机常用算法》整数排序算法的问题？堆排序的具体算法快速排序的循环算法求几种排序法的算法全排序的算法(PASCAL) 常用的几种视频文件 asp中的排序问题！ ASP 变量排序问题 asp排序问题 asp时间排序问题 asp 按POST 排序 asp的排序问题？？