![[填空题] 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 F](http://www.mshxw.com/aiimages/31/259152.png "[填空题] 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 F")
[填空题] 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j=【】 If m(i) ＞=m(j) Then 【】 m(i) =m(j) m(j) =t End If Next j 【】 For i=0 To 4 Print m(i) Next i End Sub
参考答案：
i + 1 To 4问题解析:
本题考查冒泡法的程序，就是拿前面的数与后面的数比较，如果前面的 数大于后面的就互换，反之什么也不做，依次类推，最小的将在前面，最大的在后面，有序排列。
