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