《冒泡排序》作业 1、采用冒泡排序某数组a有5个元素，分别是88,110,48,64,35。采用冒泡排序对其进行排序，若完成某一遍时的结果是35,88,110,48,64，则完成下一遍时的结果是（ ） A. 35,88,110,48,64 B. 35,48,110,88,64 C. 35,48,88,110,64 D. 35,48,64,88,110 2、有如下程序段： s = "" For i = 1 To 3 For j = 7 To i + 1 Step -1 If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t21世纪教育网版权所有 End If Next j s = s + Str(a(i)) Next i Text1.Text = s 数组元素a(1)到a(7)的数据依次为“3,9,1,5,8,6,2”，经过该程序段“加工”后，文本框Text1中显示的内容是（ ） 21教育网 A. 1 2 3 B. 9 8 6 C. 3 9 1 D. 8 6 2 3、n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如例16-2图所示。21cnjy.com 例16-2图 实现上述功能的VB代码如下，但加框处代码有错，请改正。 Dim a(1 To 8) As Integer Dim n As Integer Private Sub Form_Load() 'n=8，排序前数据存储在数组a中，并在列表框Listl中显示 '代码略 End Sub Private Sub Command1_Click() Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换 i=1 flag=True Do While '（1） flag=False For j=n To i+1 Step -1 If a(j)
