vbs冒泡排序（由大到小）

Option Explicit
Dim arr(10),j,i,t,ss,data
arr(0)=7
arr(1)=8
arr(2)=5
arr(3)=10
arr(4)=4
arr(5)=9
arr(6)=2
arr(7)=3
arr(8)=1
arr(9)=6

For j = 0 To 9
For i = 0 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 = 0 To 9
 data=data&arr(ss)& vblf
Next
msgbox data