题库 高中信息
题干
在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。
（1）观察代码，该排序过程中，交换次数最多能达到______________次。
（2）实现上述功能的VB程序如下，请在划线处填入正确语句。
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()
（1）观察代码，该排序过程中，交换次数最多能达到______________次。
（2）实现上述功能的VB程序如下，请在划线处填入正确语句。
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i <= 99
j = 100
Do While ①_______
If z(j) > z(j - 1) Or ②_____________Then
t = z(j): z(j) = z(j - 1): z(j - 1) = t
t = c(j): c(j) = c(j - 1): c(j - 1) = t
End If
j = j - 1
Loop
③________
Loop
List1.AddItem " " + "主" + " " + "次"
For i = 1 To 100
List1.AddItem Str(z(i)) + Str(c(i))
Next i
End Sub答案(点此获取答案解析）
