快速排序法誰會(huì)啊？幫小弟個(gè)忙！

8,2,10,9,12,16,30
2,8,10,9,12,16,30
2,8,9,10,12,16,30

降序排列:
redim ary(6)
ary(0) = 12
ary(1) = 2
ary(2) = 16
ary(3) = 9
ary(4) = 10
ary(5) = 8
ary(6) = 30
for j = 0 to 6
for i=0 to 6
if i<6 then
if cint(ary(i)) < cint(ary(i+1)) then
a = ary(i)
ary(i) = ary(i+1)
ary(i+1) = a
end if
end if
next
response.write("第"&j+1&"躺:")
for k=0 to 6
response.Write(ary(k)&",")
next
response.Write("
")
next
----------------------------------
結(jié)果是這樣
第1躺:12,16,9,10,8,30,2,
第2躺:16,12,10,9,30,8,2,
第3躺:16,12,10,30,9,8,2,
第4躺:16,12,30,10,9,8,2,
第5躺:16,30,12,10,9,8,2,
第6躺:30,16,12,10,9,8,2,
第7躺:30,16,12,10,9,8,2,