冒泡排序真题

1、16.【加试题】n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两 个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据 已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个 VB 程序，功能如 下：运行程序时，在列表框Listl中显示排序前数据，单击“排序”按钮Commaiidl,在列 表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍 数。运行效果如第16题图所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。Dim a(l To 8) As IntegerDim n As Intege

2、rPrivate Sub Form_Load()n=8，排序前数据存储在数组a中，并在列表框Listl中显示代码略End SubPrivate Sub Commandl_Click()Dim flag As Boolean flag值为True表示一遍加工中发生过交换i = 1flag = TrueDo While i = n - 1 Or flag = True( 1)flag = FalseFor j = n To i + 1 Step -1If a(j) 6End SubPrivate Sub Zommand1_Zlick()Dim i As Integer, j As Integer,

3、 k As Integer Dim pos As IntegerDim s As Strings = Text1.Text pos = Val(Text1.Text)For i = 1 To n - 1For j = n To i + 1 Step -1If a(j) a(j - 1) Thenk = a(j)a(j - 1) = a(j)a(j) = k如果pos位置的数据参与交换，则更新pos值，记录pos变化位置If pos = j Thenpos = j - 1s = s + f + Str (pos)Elsepos = js = s + f + Str(pos)End IfEnd I

4、fNext jNext iLabel1.Caption = 位置变化情况： + sFor i = 1 To nList2.AddItem Str(a(i)Next iEnd Sub鬥排序数组元素数组元素的含义排序前數据17 12 17 10 16 15 10 17 916a(1)|排序 存储班级数na(2)鬥排序数组元素数组元素的含义排序前數据17 12 17 10 16 15 10 17 916a(1)|排序 存储班级数na(2)从a(2)到a( 第1、2、n+1)依次存储 第n个班级人数排序后数据9 10 12 15 16 17 实现上述功能的VB程序如下，但加框处代码 有错，请改正。Co

5、nst n 二 10Dim a(1 To n) As Integer Private Sub Command1_Click()a(n+1)a(n+2) 从a(n+2)依次存储第1班每 个学生的单科成绩、第2班 每个学生的单科成绩、第n 班每个学生的单科成绩Dim i As Integer, j As Integer, t AsIntegerDim bottom As Integer获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略 bottom = ni = 1Do While i = bottom - 1For j 二 bottom To,i + 1 Step -1If a(j) a(i) Thent = a(j): a(j) = a(j - 1): a(j - 1) = tElgelf a(j) = a(j - 1) Then 相邻两个数据相等，进行剔除处理 a(b otto m)=a(j) bottom = bottom - 1End IfNext ji = i +