下面程序用“冒泡”法将数组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＝ 【10】
Forj= 【11】
If a(j) 【12】 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