下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a()

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

Fori＝【 】

Forj= 【 】

If a(j)【 】a(j+1)Then

a1=a(j)

a(j)＝a(j+1)

a(j+1)=al

End lf

Nextj

Next i

For i＝1 To 10

Print a(i)

Next i

End Sub