asp冒泡排序算法

在以前学过的C语言数据结构中，有许多排序算法，冒泡排序算法就是其中的一种。

算法原理
冒泡排序算法的运作如下：
1、比较相邻的元素。如果第一个比第二个大，就交换他们两个。
2、对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。
3、针对所有的元素重复以上的步骤，除了最后一个。
4、持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。
 

现在在这里，用asp来写一下冒泡排序算法：

<%
  a=array(49,38,65,97,76,13,27)  
  response.write "初始顺序： "
  for i=0 to ubound(a)
   response.write a(i)&" "
  next
  response.write "<hr>"   
  a=bubbleSort(a)  
  response.write "最终排序结果："
  for i=0 to ubound(a)
   response.write a(i)&" "
  next
  
  Function bubbleSort(byval arr)
  '冒泡排序法
  for i=0 to ubound(arr)-1  
   for j=i+1 to ubound(a)  
    if arr(i)>arr(j) then
     t=arr(j)
     arr(j)=arr(i)
     arr(i)=t   
    end if  
   next   
  next
  bubbleSort=arr
 end Function
  
 function print_arr(byval a,byval i)
   response.write "第"&i+1&"趟排序后： "
 for ii=0 to ubound(a)
     response.write a(ii)&" "
    next
 response.write "<br />"
 end function
%>

原创文章，转载请注明来源：asp编程网（www.aspbc.com ），谢谢