HBcms特点:无技术门槛,简单,易用,美观,实用。上万元的建站系统超低价立刻拥有! 繁體顯示

功能列表(图)  -  源码下载 (简体,繁体,英文)  功能介绍 - 免费试用  -  会员中心 
 
你的位置:HBcms宏博内容管理系统 建站经验 正文
会员登陆 - 免费注册 - 收藏本站 - 文章投稿 - RSS
内容搜索
热门内容
  1. 网站logo在线设计,免..
  2. 域名解析文件hosts文件..
  3. 教你如何做网线接头:..
  4. qq怎么截图?如何在qq..
  5. 雅虎yahoo邮箱smtp和p..
  6. 新注册126邮箱或163邮..
  7. 幻灯片式的网页图片滚..
  8. 做网站怎么赚钱?什么..
  9. com域名和cn域名net域..
  10. Google支付系统(Googl..
推荐内容
  1. 做一个商业网站要多少..
  2. 国外服务器租用(国外..
  3. 深圳做网站的公司!=深..
  4. 网络原创投稿,转载精..
  5. 美国服务器租赁Window..
  6. 699元的美国服务器出租..
  7. 添加友情链接,速度别..
  8. “原始人”卷款潜逃事..
  9. 设置Godaddy支持zend ..
  10. 网页设计中常用的CSS命..
宏博cms简介

cms特点:
简单,易用,美观,实用

HBcms产品使用版权:
个人非商业用途,完全免费!

 如要提出意见或建议,或者
有问题需要咨询,请访问
技术支持论坛
几种常用排序算法(asp)
  • 原作者:purefei 添加时间:2007-09-27 发表时间:2007-09-27 人气:105
  • 宏博cms建站系统: 功能列表 -免费下载  -绿色体验版

  • <%

    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)
        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

    %>

  • 点这里复制本页地址发送给您QQ/MSN上的好友
  • 购买官方高级技术支持,做网站无后顾之忧!

    购买高级技术支持,一步一步的教您做网站!

  • 相关文章
  • 相关评论
    • 评论人:
      评论内容:
  • 本文章所属分类:首页 建站经验

企业建站套餐

企业型套餐

产品展示型,3800元起

付款后1天内开通网站

空间:3000MB专业服务器

后台:宏博自助建站系统

模板:7千多套企业模板任选

升级:含官方免费升级服务

企业型套餐

企业标准套餐,3800元起

10个工作日内做好

空间:2G-4G,超大网页空间

无忧:含高级技术支持无后患

模板:行业网站模板定制

内容:免费帮您录入部分内容

对象:适合企事业单位网站

HBcms基本功能介绍
关于我们 - 联系我们 - 版权声明 - 帮助中心 - 公司地址 - 登陆注册 - 招聘信息

HBcms宏博内容管理系统是一个极专业的自助建站系统,让你快速搭建自己的网站! 上万元的建站系统超低价立刻拥有!!

本站所有内容,都是由HBcms自助建站系统生成,使用HBcms,您能立刻拥有和本站相同功能的网站

建站流程:1. 电话或QQ咨询   2.选择套餐类型   3.付款   4.开通域名和网站(1个工作日内)
付款方式:1.公司账户对公司账户的银行电汇   2.个人账户对个人账户银行电汇   3.网上银行在线支付
销售咨询:企业QQ:  706254384(周一到周五9:00-18:00)  电子邮件: support@hbcms.com
宏博内容管理系统(宏博cms、HBcms)   ©   2003-2010   宏博内容管理系统 
 
销售咨询: 企业QQ:  706254384   邮箱:service@hbcms.com  地址:广东省深圳市福田区东风大厦9楼

宏博内容管理系统 ©   2003-2023   粤ICP备08009046号