题库 高中信息
题干
（加试题）双调序列：指的是有n个整数进行排序，在序列中第一个数是n个数当中最大数，第二 个数是n个数中最小数，第三个数是n个数中的第二大数，第四个是n个数中的第二小数……取过的数字 不能再取，依次类推，直到结束。
小明根据上述概念制作了VB应用程序，功能如下：程序运行后，点击“生成”按钮Command1随机生成10个不重复的[0,99]内的整数，列表框List1中显示排序之前数据；单击“排序”按钮Command2，在列 表框List2中显示这些数据的双调序列结果。其程序界面如图所示。 实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer Dim b(0 To 99) As Integer Private Sub Command1_Click()
‘随机生成10个不重复的[0，99]之间的整数，存储在a数组中，代码略。
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer k = 0
For i = 1 To n
b(i) = b(i) + 1 '①________
Next i
For j = 0 To 99
If b(j) = 1 Then k = k + 1
a(k) = j
End If
Next j
For i = 1 To n \ 2
List2.AddItem Str(a(n - i)) '②________
List2.AddItem Str(a(i))
Next i
End Sub
小明根据上述概念制作了VB应用程序，功能如下：程序运行后，点击“生成”按钮Command1随机生成10个不重复的[0,99]内的整数，列表框List1中显示排序之前数据；单击“排序”按钮Command2，在列 表框List2中显示这些数据的双调序列结果。其程序界面如图所示。 实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer Dim b(0 To 99) As Integer Private Sub Command1_Click()
‘随机生成10个不重复的[0，99]之间的整数，存储在a数组中，代码略。
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer k = 0
For i = 1 To n
b(i) = b(i) + 1 '①________
Next i
For j = 0 To 99
If b(j) = 1 Then k = k + 1
a(k) = j
End If
Next j
For i = 1 To n \ 2
List2.AddItem Str(a(n - i)) '②________
List2.AddItem Str(a(i))
Next i
End Sub
答案(点此获取答案解析）
