[填空题] 下面的程序用冒泡法将数组a中的10个整数按升序排列，请在三处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=

8 查阅

[填空题] 下面的程序用冒泡法将数组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=______

For j=______

If a(i)______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

参考答案:

a To 9 i+1 To 10 ＞=

Option Base 1指示数组下标从1开始。冒泡排序为首先将第一个记录的关键字与第二个记录的关键字进行比较，若逆序则交换，然后比较第二个与第三个，依此类推，直至第n-1个和第n个记录的关键字进行比较为止。上述过程为第一趟冒泡排序，使最大的关键字元素放到最后。依此类推，进行第2～n次冒泡排序。根据冒泡排序的原理，结合本题，构成二重循环，应填a To 9和i+1 To 10，此时将判断a(i)与a(j)的大小，根据题意，故填＞=。

计算机考试