![[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click()Dim aa = Arr](http://www.mshxw.com/aiimages/31/259916.png "[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click()Dim aa = Arr")
[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option base 1
Private Sub Command1_Click()
Dim a
a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823)
For i = 【5】
For j = 【6】
If a(i) 【7】 a(j) Then
al = a(i)
a(i) = a(j)
a(j) = al
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
参考答案：
1 To 9 i+ 1 To 10 ＞问题解析:
最外层的循环负责从第一个元素到第九个元素中取出一个，内层循环负责从外层循环取出的元素的后继所有元素和其比较，如果比外层循环取出的元素小，则将二者的位置对换。
