填空题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在{{U}} 【9】 {{/U}}、{{U}} 【10】 {{/U}}、{{U}} 【11】 {{/U}}处将程序补充完整。
Option Base 1
Private Sub Command1_Click ()
Dim a
a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)
For i={{U}} 【9】 {{/U}}
For j={{U}} 【10】 {{/U}}
If a(i){{U}} 【11】 {{/U}}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