几种常用排序算法(asp)_网络编程_ASP教程

您的位置：学习网(Gzu521.com) -> 考试资料 -> 网络编程 -> ASP教程 -> 资料正文

学习网考试学习资料

Gzu521.com

几种常用排序算法(asp)

ASP教程点击：次发布时间：2006-10-21 【字体：大中小】来源：Gzu521.com

Gzu521.com我的学习网

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
    next

    selectsort = 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
    next

    quicksort = a_data
end function

’冒泡排序
function bubblesort(a_data)
    dim bound
    bound = ubound(a_data)
    dim bsorted, i, t
    bsorted = false

    do while bound > 0 and bsorted = false

        bsorted = 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
    loop

    bubblesort = a_data
end function

’插入排序
function insertsort(a_data)

^7j0sGo [本_文_来_源_于_我_的_学_习_网网络编程ASP教程 http://Www.GZU521.Com ]^7j0sGo

    dim bound
    bound = ubound(a_data)
    dim i, j, t

    for i = 1 to bound
        t = a_data(i)
        j = i
        do while t<a_data(j-1) and j>0
            a_data(j) = a_data(j-1)
            j = j - 1
        loop
        a_data(j) = t
    next

    insertsort = a_data
end function

’输出数组
sub responsearray(a_data, str)
    dim s
    s = ""
    response.write "<b>" & str & "：</b>"
    for i = 0 to ubound(a_data)
        s = s & a_data(i) & ","
    next
    s = left(s, len(s)-1)
    response.write s
    response.write "<hr>"
end sub

%>

责任编辑：gzu521

更多相关信息->

网络编程分类

	ASP教程
	.Net教程
	Java教程
	PHP教程
	数据库基础
	ACCESS教程
	SQL Server教程
	MySQL教程
	Oracle教程

分类推荐信息

更多...

大类最新文章

更多...