asp 實作的冒泡排序程序

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