[填空題] 下面的程序用冒泡法將數(shù)組a中的10個整數(shù)按升序排列，請在三處將程序補充完整。

Option Base 1

Private Sub Command1_Click()

Dim a

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

For i=______

For j=______

If a(i)______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

a To 9 i+1 To 10 ＞=

Option Base 1指示數(shù)組下標從1開始。冒泡排序為首先將第一個記錄的關(guān)鍵字與第二個記錄的關(guān)鍵字進行比較，若逆序則交換，然后比較第二個與第三個，依此類推，直至第n-1個和第n個記錄的關(guān)鍵字進行比較為止。上述過程為第一趟冒泡排序，使最大的關(guān)鍵字元素放到最后。依此類推，進行第2～n次冒泡排序。根據(jù)冒泡排序的原理，結(jié)合本題，構(gòu)成二重循環(huán)，應(yīng)填a To 9和i+1 To 10，此時將判斷a(i)與a(j)的大小，根據(jù)題意，故填＞=。