顺序查找算法与程序实现

查找是一种查询数据的技术，其目标是能以比较少的步聚和较短的时间找到所需的对象顺序查找的基本思想是从第一个数据开始，按数据的顺序逐个将数据与给定的值进行比较。若某个数据和给定的值相等，则查找成功，找到所查数据的位置；反之，查找不成功。查找算法第一页，共10页。顺序查找27363218d(1)d(2)d(3)d(4)输入查找的元素值key=32i=1i=2i=3此时d(i)=key,数组中的第3个位置如果输入查找的元素值key=22i=1i=2i=3i=4i=527363218d(1)d(2)d(3)d(4)此时i等于5,超过数组中元素个数,找不到从数组d的第1个元素d(1)开始，依次判断各元素的值是否与查找键key的值相等。第二页，共10页。顺序查找的流程图开始i1d(i)=key?i<=n?ii+1未找到，输出结果：0找到，输出结果：i结束YNYN第三页，共10页。例题：顺序查找第四页，共10页。1、首先在通用声明事件里定义数组d变量为全局变量。Dimd(1To10)AsIntegerDimi,keyAsInteger2、程序一运行，生成10个3位整数，显示在标签1中。PrivateSubForm_Load()Label1.Caption=""RandomizeFori=1To10d(i)=Int(Rnd*101+100)Label1.Caption=Label1.Caption&d(i)&""NextiEndSub第五页，共10页。3、在文本框1中输入要找的数，单击“顺序查找”按钮，在文本框2中显示找到的结果。PrivateSubCommand1_Click()key=Val(Text1.Text)num=10Fori=1TonumIfd(i)=keyThenText2.Text=“在数组的”+Str(i)+位置中"ExitForEndIfNextiIfi=num+1ThenText2.Text=“在数组中没有找到"+Str(key)EndIfEndSub第六页，共10页。某学校把每个学生的姓名和家长联系电话保存到计算机中，以便遇到紧急情况时可以及时通知学生家长。每个学生的姓名和家长联系电话已经保存在数组xm和phone(都为字符串类型)中。现在要设计一个根据输入的学生姓名查询该学生家长的联系电话的程序。程序运行时的界面如下图所示：完善程序：下列程序运行时，在Text1中输入学生姓名，单击“查询家长电话”按钮Command1后，在标签Label2中显示对应的学生家长电话，若找不到则显示“未找到该学生”。程序代码如下：第七页，共10页。Dimxm(1To1000)AsStringDimphone(1To1000)AsStringDimnasintegern＝1000PrivateSubCommand1_Click()DimxAsStringDimfindAsBooleanDimiAsIntegerx＝Text1.Texti＝0find＝FalseDoWhile(i<n)Andfind＝False

①

If②Thenfind＝TrueLoopIffind＝TrueThen

Label2.Caption＝“该学生家长联系电话为：”＋phone(i)Else

Label2.Caption＝“未找到该学生”EndIfEndSub

PrivateSubForm_Load()'学生姓名及家长电话数组赋初值语句，忽略EndSub请阅读代码并问答下列问题。(1)解决此问题的算法是_______________________。在程序①和②划线处填入适当的语句或表达式，将程序补充完整：(2)程序中①划线处应填入_____________________。(3)程序中②划线处应填入_____________________。注：该示例程序在素材文件夹下vb33文件夹中。顺序查找算法i=i+1x=xm(i)第八页，共10页。比较顺序查找是一种基本、简单的查找算法，但查找的效率往往过低；对分查找时每次都把查找范围缩小一半对分查找算法数