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