vb专题复习之冒泡排序 导学案设计.pdfVIP

VB 专题复习之冒泡排序 导学案设计 班级学号： 姓名： 《VB专题复习之冒泡排序》导学案 【学习目标】 1.理解冒泡排序的基本思想，掌握冒泡排序的程序实现 2.理解双重循环的功能，夯实冒泡排序基础 3.体会算法的优劣,学会对冒泡变式的分析 一、经典冒泡（n 个数据由小到大排列） 外层循环使用 DO 语句，则程 1.程序结构 序结构为： 自底向上:从后向前，相邻两数两两比较，将较小数 换到前一个位置。 外循环控制加工遍数 For i =1 to For j = Step -1 For j = Step -1 If Then If Then 内循环进行比较与交换 k = a(j) k = a(j): a(j) = a(j - 1): a(j - 1) = k a(j) = a(j - 1) End If a(j - 1) = k Next j End If Next i Next j 加工遍数 比较次数 交换次数 2.练习 （1）不完全排序（只加工前几遍） For i =1 to 3 For j = 8 To i + 1 Step -1 If a(j) a(j - 1) Then k = a(j): a(j) = a(j - 1): a(j - 1) = k End If Next j Next i 数组元素a(1)到a(8)的值依次为“44,38,78,37,96,4,45,69”，该程序“加工”后， a(1) 到a(8)的值依次为 （2）记录交换次数 若用变量c 表示交换次数，请在第（1）题适当位置加上语句c=c+1。 1 / 6 VB 专题复习之冒泡排序 导学案设计 （3）记录某数据的位置变 [原2016.10 浙江选考第16题］，可打开“冒泡验证.frm”文 件，通过修改“经典冒泡”按钮的代码来验证（修改序号①②所在处代码即可）。 s = Text1.Text pos = Val(Text1.Text) For i = 1 To n - 1 For j = n To i + 1 Step -1 If a(j) a(j - 1) Then k = a(j) a(j - 1) = a(j) a(j) = k 如果pos 位置的数据参与交换，则更 新pos 值，记录pos 变化位置 If pos = j Then pos = j - 1 s = s + → + Str(pos)