题目

【排序算法的应用2】双关键字排序:在Excel中可采用双关键字排序，即先按主关键字排序，如主关键字相同再按次关键字排序。小王学习了冒泡排序后，编写了一个VB程序模拟该排序过程。功能如下：在列表框List1中显示排序前数据（存储在数组a、b中），单击“排序”按钮 Command1后，按主关键字数组a升序和次关键字数组b升序排序，排序后的数据在列表框Lis2中显示。程序运行界面如图所示。 实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 10 Dim a(l To n) As Integer, b(1 To n) As Integer Private Sub Form_Load ‘ 各产生10个随机整数存入数组a、b,并在列表框List1中显示 ‘ 代码略 End sub Private Sub Command1_Click ( ) Dim i As Integer, j As Integer i = 1 Do While i < = n-1       ‘①   Do While > = i+1     If a(j) < a(j-1) Then       temp = a(j): a(j) = a(j-1): a(j-1) = temp       temp = b(j): b(j) = b(j-1): b(j-1) = temp        ‘②       temp = a(j): a(j) = a(j-1): a(j-1) = temp       temp = b(j): b(j) = b(j-1): b(j-1) = temp     End if     j = j-1   Loop   i = i+1 Loop For 1 =1 To n   List2. AddItem Str(a(1)) + “” + str(b(i)) Next i End sub ① ②  答案：【1】=n【2】Elself a(j)=a(j-1) And b(j) < b(j-1) Then

查看本题答案和解析