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

17 查阅

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

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

计算机考试