[填空题] 下面的程序是用冒泡法将数组a中的10个整数按升序排列，并将程序补充完整。 Private Sub Command1

[填空题] 下面的程序是用冒泡法将数组a中的10个整数按升序排列，并将程序补充完整。

Private Sub Command1_Click()

Dim a

Dim Tmp As Integer

a=Array(678 , 45 , 324 , 528 , 439 , 387 , 87 , 875 , 273 , 823)

For i=______

For j=______

If a(i)______a(j)Then

Tmp=a(i)

a(i)=a(j)

a(j)=Tmp

End If

Next j

Next i

For i=0 To 9

Print a(i)

Next i

End Sub

0 To 9；0 To 9；＜