asp排序算法源码--冒泡排序；快速排序

最新推荐文章于 2019-01-08 02:21:23 发布

原创最新推荐文章于 2019-01-08 02:21:23 发布 · 1.9k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#asp #算法

asp技术专栏收录该内容

29 篇文章

订阅专栏

本文介绍用VBScript实现冒泡排序和快速排序两种经典排序算法的方法。通过具体的源代码示例展示了如何对数组进行排序，并提供了使用说明。

以下源码均自写，有什么不对的地方欢迎指正

冒泡排序

Sub BubbleSort(ByRef arrName) If Not(IsArray(arrName)) Then Exit Sub Dim intA,intMax,intKey,blnFlag intMax=UBound(arrName)-1 Do While True blnFlag=False For intA=0 To intMax If arrName(intA)>arrName(intA+1) Then intKey=arrName(intA) arrName(intA)=arrName(intA+1) arrName(intA+1)=intKey blnFlag=True End If Next If blnFlag=False Then Exit Do Loop End Sub

使用方法：

Dim arrA

arrA=Array(7,3,8,4,2,8,4,6)

Call BubbleSort(arrA)

快速排序

Sub QuickSortMain(ByRef arrArray,ByVal intMin,ByVal intMax) Dim intValue,intL,intH,intSwapValue intL=intMin intH=intMax intValue=arrArray(intL) Do Until intL=intH While intL<intH And arrArray(intH)>=intValue intH=intH-1 Wend If intL<intH Then intSwapValue=arrArray(intL) arrArray(intL)=arrArray(intH) arrArray(intH)=intSwapValue End If While intL<intH And arrArray(intL)<=intValue intL=intL+1 Wend If intL<intH Then intSwapValue=arrArray(intL) arrArray(intL)=arrArray(intH) arrArray(intH)=intSwapValue End If Loop intL=intL-1 intH=intH+1 If intL>intMin Then Call QuickSortMain(arrArray,intMin,intL) If intH<intMax Then Call QuickSortMain(arrArray,intH,intMax) End Sub Sub QuickSort(ByRef arrArray) If Not(IsArray(arrArray)) Then Exit Sub Dim intMax intMax=UBound(arrArray) Call QuickSortMain(arrArray,0,intMax) End Sub

使用方法：

Dim arrA

arrA=Array(7,3,8,4,2,8,4,6)

Call QuickSort(arrA)