急！求用vbs寫的冒泡排序的例子！ 一定要正確的！

[yshawxp]

我有1個數組
arr
裏面有9個元素：

1，8，4，3，3，5，2，9，0，

我要的結果是：

0，1，2，3，3，4，5，8，9，

謝謝！

[cime63]

呵呵
冒泡排序就是循环嵌套

[wangwm]

for j=0 to 9

for i=0 to 9-j

if sj(i)<sj(i+1) then

t=sj(i),sj(i)=sj(i+1),sj(i+1)=t

end if

next i

next j

[wangwm]

Dim arr(10)
arr(1) = 8
arr(2) = 4
arr(3) = 3
arr(4) = 3
arr(5) = 5
arr(6) = 2
arr(7) = 9
arr(8) = 0
arr(9) = 1
For j = 1 To 9
For i = 1 To 9 - j
If arr(i) < arr(i + 1) Then
t = arr(i): arr(i) = arr(i + 1): arr(i + 1) = t
End If
Next
Next
For ss = 1 To 9
Response.write arr(ss) & "<br>"
Next

[wangwm]

晕，写反了
把
If arr(i) < arr(i + 1) Then
换成
If arr(i) > arr(i + 1) Then
就行了

[jarraytan]

dim i,j,tmp
for i=0 to 8
for j=0 to 7-i
if arr(j)>arr(j+1) then
tmp=arr(j)
arr(j)=arr(j+1)
arr(j+1)=tmp
end if
next
next

[jarraytan]

结果经过我在VB中验证正确。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝
TO: wangwm(==星星之火==) 太不负责了吧？
你的结果如下：
9
8
5
4
3
3
2
1
0

[lnboy1003]

<script language="vbScript" type="text/vbScript">
dim arr(9),b
arr(0)=1
arr(1)=8
arr(2)=4
arr(3)=3
arr(4)=3
arr(5)=5
arr(6)=2
arr(7)=9
arr(8)=0
for i=0 to 8
for j=i+1 to 8
if arr(i)>arr(j) then
b=arr(i)
arr(i)=arr(j)
arr(j)=b
end if
next
document.write arr(i)&" "
next

</script>

[yjbnew]

<script language="vbScript" type="text/vbScript">
dim arr(9),b
arr(0)=1
arr(1)=8
arr(2)=4
arr(3)=3
arr(4)=3
arr(5)=5
arr(6)=2
arr(7)=9
arr(8)=0
for i=0 to 8
for j=i+1 to 8
if arr(i)>arr(j) then
b=arr(i)
arr(i)=arr(j)
arr(j)=b
end if
next
document.write arr(i)&" "
next

</script>

[wxylvmnn]

<script language="vbScript" type="text/vbScript">
dim arr(8),tmp
arr(0)=1
arr(1)=8
arr(2)=4
arr(3)=3
arr(4)=3
arr(5)=5
arr(6)=2
arr(7)=9
arr(8)=0
for i=0 to 8
for j=i+1 to 8
if arr(i)>arr(j) then
tmp=arr(i):arr(i)=arr(j):arr(j)=tmp
end if
next
document.write arr(i)&" <br>"
next
</script>