![[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=A](http://www.mshxw.com/aiimages/31/253935.png "[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=A")
[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= 【8】 For j= 【9】 If a(i) 【10】 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
参考答案：
[8]1 To 9问题解析:
[9]i+1 To 10 [10]＞[评析] 最外层的循环负责从第1个元素到第9个元素中取出一个，内层循环负责取外层循环下标后面的元素与它比较，如果比外层循环取出的元素小，则将二者的位置对换。
