asp 实现的冒泡排序程序

复制代码 代码如下:
arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45)
arrLen = ubound(arr)

for i=0 to arrLen-1
for j = 0 to (arrlen -1)-i
if arr(j)>arr(j+1) then
temp = arr(j)
arr(j)= arr(j+1)
arr(j+1) = temp
end if
next
next

for each l in arr
response.Write l&"<br>"
next