(课件网) 冒泡排序专题复习 冒泡排序的思想 从最下面一个元素起，依次比较相邻的两个元素中的数据，将较小的数据调换到上面，小元素像气泡一样上浮。 如何实现将较小数逐次从下向上推移呢？ 冒泡排序的过程 1 2 3 4 5 设置数组变量：a(i)为牌的值（i=1、2、3、4、5) 第一轮冒泡 1 2 3 4 5 a(5)>a(4)， 不交换 a(4)a(4)， 不交换 a(4)>a(3)， 不交换 a(3)a(4)， 交换 a(4)a(j-1) 思考： 若从前往后实现大值“下沉”，程序如何修改？ For i = 1 To n - 1 For j = If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t End If Next j Next i 2 to n-i+1 思考： 若从前往后实现大值“下沉”，程序如何修改？ For i = n To 2 step -1 For j = If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t End If Next j Next i 2 to i 思考： 若把每一遍加工时数据比较位置改为j和j+1，程序如何修改？ For i = 1 To n - 1 For j = If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i n-1 To i Step -1 思考： 若只需要寻找数组中最大的三个数，程序如何修改？ For i = For j = n To i + 1 Step -1 If Then t = a(j): a(j) = a(j - 1): a(j - 1) = t End If Next j List1.AddItem Str(a(i)) Next i a(j)>a(j-1) 1 to 3 a(j-1)
