版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、顺序查找算法及程序实现顺序查找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的值相的值相等。等。顺序查找的流程图顺序查找
2、的流程图开始开始i 1d(i)=key?i=n?ii+1未找到,输出结果:未找到,输出结果:0找到,输出结果:找到,输出结果:i结束结束YNYN例题:顺序查找例题:顺序查找1、首先在通用声明事件里定义数组d变量为全局变量。 Dim d(1 To 10) As Integer Dim i, key As Integer2、程序一运行,生成10个3位整数,显示在标签1中。Private Sub Form_Load()Label1.Caption = RandomizeFor i = 1 To 10d(i) = Int(Rnd * 101 + 100)Label1.Caption = Label1.
3、Caption & d(i) & Next iEnd Sub3、在文本框、在文本框1中输入要找的数,单击中输入要找的数,单击“顺序查找顺序查找”按钮,在文本框按钮,在文本框2中显示找到的结果。中显示找到的结果。Private Sub Command1_Click()key = Val(Text1.Text)num = 10For i = 1 To num If d(i) = key Then Text2.Text = “在数组的 ” + Str(i) + 位置中 Exit For End IfNext iIf i = num + 1 Then Text2.Text = “在数组
4、中没有找到 + Str(key)End IfEnd Sub某学校把每个学生的姓名和家长联系电话保存到计算机中,某学校把每个学生的姓名和家长联系电话保存到计算机中,以便遇到紧急情况时可以及时通知学生家长。每个学生的姓以便遇到紧急情况时可以及时通知学生家长。每个学生的姓名和家长联系电话已经保存在数组名和家长联系电话已经保存在数组xm和和phone(都为字符串类都为字符串类型型)中。现在要设计一个根据输入的学生姓名查询该学生家中。现在要设计一个根据输入的学生姓名查询该学生家长的联系电话的程序。程序运行时的界面如下图所示:长的联系电话的程序。程序运行时的界面如下图所示:完善程序:下列程序运行时,完善程
5、序:下列程序运行时,在在Text1中输入学生姓名,单击中输入学生姓名,单击“查询家长电话查询家长电话”按钮按钮Command1后,在标签后,在标签Label2中显示对应的学生家长电话,中显示对应的学生家长电话,若找不到则显示若找不到则显示“未找到该学未找到该学生生”。程序代码如下:。程序代码如下:Dim xm(1 To 1000) As StringDim phone(1 To 1000) As StringDim n as integer n 1000Private Sub Command1_Click() Dim x As String Dim find As Boolean Dim i
6、As Integer x Text1.Text i 0 find False Do While (i n) And find False If Then find True Loop If find True Then Label2.Caption “该学生家长联系电话为:该学生家长联系电话为:” phone(i) Else Label2.Caption “未找到该学生未找到该学生” End IfEnd Sub Private Sub Form_Load() 学生姓名及家长电话数组赋初值语句,忽略学生姓名及家长电话数组赋初值语句,忽略End Sub请阅读代码并问答下列问题。请阅读代码并问答下列问题。(1)解决此问题的算法是解决此问题的算法是_。在程序和划线处填入适当的语句或表达式,将在程序和划线处填入适当的语句或表达式,将程序补充完整:程序补充完整:(2)程序中划线处应填入程序中划线处应填入_。(3)程序中划线处应填入程序中划线处应填入_。注:该示例程序在素材文件夹下注:该示例程序在素材文件夹下vb33文件夹中。文件夹中。顺序查找算法顺序查找算法i=i+1x=xm(i)比较n顺序查找是一种基本、简单的查找算法,但查找的效率往往过低;n对分查找时每次都把查找范围缩小一半n对分查找算法数据次数较少,效率较高,但它要求数组中的数据是有序的。顺序查找与对分查找比较是否需
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 采购招标文件撰写技巧3篇
- 采购法务与合同的合同谈判技巧3篇
- 采购合同谈判的技巧指南3篇
- 采购合同类型的操作步骤3篇
- 消费者权益保护社会共治-洞察分析
- 采购委托代理合作方案3篇
- 采购合同范本样式样式编写3篇
- 2024年智慧家居房产买卖委托中介合作协议3篇
- 采购合同中的预付款问题解析3篇
- 相干长度与光纤通信-洞察分析
- 内科学万能公式
- 双减背景下小学语文作业的有效设计课件
- 国开成本会计第15章综合练习试题及答案
- DB31-T 836-2021 制冷剂使用技术通则
- 服装类供货服务方案
- 基坑土方施工方案评审意见
- 会阴阻滞麻醉完整版PPT课件
- 四辊不可逆铝板冷轧机的设计
- 工地三相五线制电路布线详解20160318
- 新《安全生产法》解读PPT课件
- WLANAP日常操作维护规范
评论
0/150
提交评论