《3.3.2顺序查找 (2).ppt》由会员分享，可在线阅读，更多相关《3.3.2顺序查找 (2).ppt（16页珍藏版）》请在三一文库上搜索。
1、3.3 在数组中查找数据 顺序查找,睢宁县李集中学 姚丽娟, 复习数组用法,练习1：在VB中编写程序，即定义一个数组(数组下界为1)，数组的元素通过文本框控件数组中输入共10个元素给它赋值，单击命令按钮Command1后在窗体上显示出数组的各个元素。（界面可参考图1） （1）自主复习数组。分析需要哪些控件,参考对象属性设置表格。 （2）上机实践。,旧知回顾,对象的属性设置, 顺序查找,输入查找的元素值key=32,此时a(i)=key,数组中的第3个位置,如果输入查找的元素值key=22,此时i等于5,超过数组中元素个数,找不到,从数组a的第1个元素a(1)开始，依次判断各元素的值是否与查找键
2、key的值相等。,自主先学,顺序查找的基本思想 是从第一个数据开始，按数据的顺序逐个将数据与给定的关键值进行比较。若某个数据和给定的关键值相匹配（即相等），则查找成功，找到所查数据的位置；如果所有数据与关键值都不匹配，则表示被查数据中不存在该关键值，查找失败。, 顺序查找,自主先学,顺序查找的流程图,自主先学, 在数组中查找出一个元素,小组讨论、合作交流,例1：查找数组元素中为50的元素，并在标签Label1上输出找到的元素值和Label2上显示元素位置（即找到则输出a(i)和i；找不到则在Label1上显示“找不到”）。（界面可参考图2 ） （1）本题中查找的关键值是 50 （2）画出流程图
3、 （3）小组合作根据流程图写出伪代码，分析需要补充或修改哪些控件，填写对象属性设置表格。 （4）小组根据伪代码及控件、变量的设计，编写程序（在练习1代码基础上进行修改）,添加代码,For i = 1 To 10 If a(i) = 50 Then Label1.Caption = a(i)Label2.Caption =“在数组的 ” + Str(i) + “ 位置中” Exit For End IfNextIf i = 11 Then Label1.Caption = “在数组中没有找到” + Str(Key) End If,小组讨论、交流展示, 在数组中查找出多个元素,例2：查找数组元素中
4、所有大于50的元素，并在标签控件Label1上输出元素值和Label2上显示元素位置（即找到则输出a(i)和i）（界面可参考图2 ）（1）本题中关键值是 a(i)50 （2）与上一个任务相比，查找元素的方法是一样的，不同的是必须从头顺查到结束位置，并输出每一次查找的结果。怎样解决？,小组讨论、合作交流,代码,For i = 1 To 10 If a(i) 50 Then Label1.Caption = Label1.Caption+Str(a(i)Label2.Caption =Label2.Caption+ Str(i)End IfNextIf i = 11 Then Label1.Caption = “在数组中没有找到” + Str(Key) End If,小组讨论、交流展示,用顺序查找算法解决实际问题,十一期间，学校组织国庆诗歌朗诵比赛，遇到一个麻烦的计分问题：输入选手号和十名评委的评分，去掉一个最高分和一个最低分，求出选手的最后平均得分，输出结果。请大家利用今天所学的顺序查找算法知识编一个小程序，帮老师迅速算出选手最终得分。界面可参考图3,拓展延伸,测试题： 见江苏省高中信息技术模拟练习vb 操作题1 的题405，做完查看得分并上交试卷。,测验,学完顺序查找，我的收获,总结,图1,图2,图3,