选择法排序程序设计导学案

义乌六中 315 导学案 信息技术 1 第二章 算法实例 三 选择排序程序设计导学案 一 课程学习目标 重点 难点 重点 选择排序的过程 选择排序算法的程序设计 冒泡排序与选择排序的比较 难点 选择排序算法的程序设计 学科 指导 意见 教学要求 1 初步掌握选择排序算法 知识条目考试要求 选择排序算法及程序实现 c 会考考纲 选择排序算法及程序实现 c 高考考纲 二 基础知识建构 1 选择排序法 选择排序的基本思想 选择排序的基本思想 在所有的记录中从前往后选出最小 大 的数据 把它与第一个数据交换 然后在 其余的记录中从前往后再选出最小 大 的数据与第二个数据交换 依此类推 直至所有数据排序完成 思考 选出最小 大 的数据过程 范例范例 1 1 数组 D 1to 8 中的 8 个数据如下 12 15 24 8 31 15 11 10 现利用选择排序法进行升序排列 min 义乌六中 315 导学案 信息技术 2 各趟的排序后的结果为 原始数据121524831151110 第一趟结果815241231151115 第二趟结果810241231151115 第三趟结果810111231152415 第四趟结果810111231152415 第五趟结果810111215312415 第六趟结果810111215152431 第七趟结果810111215152431 探究学习 探究学习 请把数组 D 1to 8 中的 8 个数据如下 4 26 12 26 8 31 17 21 现利用选择排 序法进行排序 并写出各趟排序后的数据的序列 第一趟结果 第二趟结果 第三趟结果 第四趟结果 第五趟结果 第六趟结果 第七趟结果 选择排序法程序界面与代码 义乌六中 315 导学案 信息技术 3 Dim d 1 To 8 As Integer 定义一个数组 Private Sub Command1 Click 产生 8 个随机数 Dim i As Integer i 1 For i 1 To 8 产生 0 100 之间的随机数存放在数组 d 中 List1 AddItem Str d i Next i End Sub Private Sub Command2 Click 对 8 个数进行选择法排序 Dim i as Integer j as integer k as integer min as integer i 1 For i 1 To 7 选择第 i 个数假设为最小的数 Min i For j i 1 To 8 如果找到更小的 用 min 记住它的编号 If Then Min j Next j If Min i Then 如果最小的数所在的位置不是 i 则交换 End If For i 1 To 8 在列表框 list2 中显示排序后的数据 Next i Next i End Sub Private Sub Command3 Click 清空列表数据 清空列表框 list1 清空列表框 list2 End Sub 义乌六中 315 导学案 信息技术 4 3 冒泡排序与选择排序的比较 冒泡排序与选择排序的比较 对两个相同的数据的排序 对两个相同的数据的排序 在冒泡排序后 填 不会 或 可能会 改变原数据中相同数据 的原本的先后顺序 在选择排序后 填 不会 或 可能会 改变原数据中相同数据 的原本的先后顺序 排序的效率 排序的效率 选择排序比冒泡排序效率要 数据交换次数的多少 对