[填空题] 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。　　Sub GASR()　　　　Dim m　　　　m=Array(10，1，5，6，7)　　　　For i=0 To 3　　　　　　F

16 查阅

[填空题] 下面是用冒泡法将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

本题考查冒泡法的程序，就是拿前面的数与后面的数比较，如果前面的数大于后面的就互换，反之什么也不做，依次类推，最小的将在前面，最大的在后面，有序排列。

计算机考试