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