哪错的排序

Option Base1

Private Sub Command1_Click()

Cls

Dim n As Integer

Dim size As Integer

size=Int(Val(Me.Text1.Text))

Dim a() As Integer

ReDim a(size)

n=LBound(a)

while n<=UBound(a)

a(n)=Int(Rnd*1000)

n=n+1

Wend

 

Dim swap As Integer

m=LBound(a)

While m<=UBound(a)-1

n=LBound(a)

While n《=UBound(a)-m

If a（n）<a(n+1) Then

swap=a(n)

a(n)=a（n+1)

a（n+1)=swap

End  If

n=n+1

Wend

m=m+1

Wend

 

n=LBound(a)

While n<=UBound(a)

Print a(n)

n=n+1

wend

End Sub

唉