题目

小李在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组c中），单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。 （1） 在设计如图a所示的程序界面时，应使用图b所示“控件工具箱”中的（填写相应编号）添加列表框List1。 （2） 语句“Flag=True”放置在（单选，填字母：A/B/C）位置。 （3） 程序代码中，加框处语句有错，请改正。 （4） 在划线处补充完成程序代码。 Const n1 = 6     ‘ 第1段已排序数据长度为n1 Const r2 = 5     ‘ 第2段已排序数据长度为n2 Dim c (1 To n1 + n2) As Integer     ‘ 数组c长度为n1+n2，依次存储第1、2段数据 Private sub Command1_Click ( ) ‘ 数组c依次存储两段已按从小到大排序的数据，并在列表框List1中显示’ ‘ 代码略 List2. Clear ‘ A位置 For i = n1+1 To n1 + n2     ‘B位置     Do While j > 1 and Flag     If         ①          Then         t = c(j): c(j) = c(j-1): c(j-1) = t ‘ C位置     Else         Flag = False     End If             ②              Loop Next i For i = 1 To n1 + n2     List2. AddItem c(i) Next i End sub ① ②  答案： 【1】④ 【1】A j=i 【1】c(j)<c(j-1)【2】j=j-1

查看本题答案和解析