[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click()Dim aa=Array

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

Option Base 1

Private Sub Command1_Click()

Dim a

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

For i= 【8】

For j= 【9】

If a(i) 【10】 a(j)Then

a1=a(i)

a(i)=a(j)

a(j)=a1

End If

Next j

Next i

For i=1 To 10

Print a(i)

Next i

End Sub