题目

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。   实现上述功能的VB程序如下，但加框处语句有错，请改正。 Const n1=9       ‘第1段已排序数据长度为n1 Const n2=6       ‘第2段已排序数据长度为n2  ‘数组c长度为n1+n2，依次存储第1，2段数据 Dim c(1 To n1+n2)As Integer Private Sub Command1_Click()     ‘数组c依次存储两段已按从小到大排序的数据     ‘并在列表框List1中显示，代码略      List2．Clear            A位置       For i=n1+1 To n1+n2          j=i            B位置           Do While j>1 And Flag               t=c(j)              c(j)=c(j-1)              c(j-1)=t        C位置          Else           Flag=False         End If         j=j-1                 ‘②       Loop     Next i     For i=1 To n1+n2     List2．Addltem c(i)     Next i End Sub （1） ①处加框代码有错，应修改为。 （2） ②处“Flag=True”语句的位置有错，应放在(单选，填字母：A／B／C)位置。 答案： 【1】c(j-1)>c(j) 【1】B

查看本题答案和解析