题库 高中信息
题干
数组a和数组b中元素的个数分别为n1和n2，现在从a，b两个数组中选取最小的n1个数据并按升序排列保存到a数组中。示例1：a={1}，b={5,3}，则a={1}；示例2：a={3,1}，b={2,4}，则a={1,2}。实现上述功能的VB程序段如下：
Private Sub Form _ Load( )
′数组a,b存储整数,代码略
End sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer, k As Integer, t As Integer, flag As Boolean
flag- True
For i=1To ①
j=n2
k=i
For j=n1Toi+1Step-1
If a(k)<= b(1) And k <> i Then
Next i
For i=1 To nl
Listl AddItem Str(a(i))
Next i
End sub
请回答问题：
（1）要使程序运行时，清空列表框List1的内容，可在 Form Load事件过程中添加语句：_____（单选，填字母：
（2）请将程序代码①②处补充完整。
①_______________________
②_______________________
（3）程序代码方框处，flag为_______时，表示b数组该遍加工需要进行_______排序（选填：冒泡/选择）。
Private Sub Form _ Load( )
′数组a,b存储整数,代码略
End sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer, k As Integer, t As Integer, flag As Boolean
flag- True
For i=1To ①
j=n2
If b(j)< b(j-1) Then t=b(j: b(j)=b(j-1): b(j-1)=t
j=j-1
Loopk=i
For j=n1Toi+1Step-1
If a(j)<a(k) then k-j
Next jIf a(k)<= b(1) And k <> i Then
t=a(k):a(k)=a(i): a(i)=t
flag=False
Elself② Thent=a(i):a(i)=b(1):b(1)=t
flag=True
End IfNext i
For i=1 To nl
Listl AddItem Str(a(i))
Next i
End sub
请回答问题：
（1）要使程序运行时，清空列表框List1的内容，可在 Form Load事件过程中添加语句：_____（单选，填字母：
| A．List1.Caption=""/ | B．List1.Clear/ | C．List1. Additem""）。 |
①_______________________
②_______________________
（3）程序代码方框处，flag为_______时，表示b数组该遍加工需要进行_______排序（选填：冒泡/选择）。
答案(点此获取答案解析）
