下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、模拟查找过程课程设计报告(VB编号:16 模拟查找过程设计报告 学院材料学院班级 材料074 学号 072017姓名 韩世超成绩 、设计思路 1. 要达到的目的 (1)基本目的: 能够完成一批数据的输入并显示,使用Label控件数组显示。 对线性查找和折半查找两种算法过程进行模拟。 使用Label控件设置查找过程的指针,线性查找只需1个指针,而折半查找需要 3个,在模拟查找 的过程中,要求指针动态改变位置,需要用到Timer控件,时间间隔为1秒。 除了使用Option控件进行查找方法的选择,还可以使用菜单项进行选择。 查找结果的查询要求使用菜单命令调用另一窗体来实现。 查找结果的显示可以将找到
2、的数据用特殊的颜色标识出来。 (2)创新目的: 如果输入的目标数据不是数字,可以检测并使输入框获得焦点。 如果没有找到数据,在查找结果的窗体中作相应的提示。 检测输入的数据,如果不正确那么提示再次输入。 折半查找中批数据必须是有序的,可以对输入的数据进行验证,如果顺序不对,要重新输入。 折半查找中如果批数据中有重复数据,可以找到并标出重复数据及位置。如 1 23 45556 78 9 2关键问题的解决 1、在Formoad事件中,让数字指针不可见。 2、 在批数据的输入中,用INPUTBOX函数进行输入,并显示到标签控件数组上。 3、 将批数据的背景颜色设置为最开始的颜色。如果选择的是线性查找
3、,则使1个Label控件指针可见, 否则应使3个Label控件指针可见,并根据 查找方法指向相应的初始位置。然后启动Timer1控件。 (1) 折半查找时指针初始位置如下,由于高度是固定不变的,这里不用考虑。 lb_pter0.Left = Label1(nMin).Left + Label1(nMin).Width / 2 - lb_pter0.Width / 2 Ib_pter1 .Left = Label1( nH alf).Left + Label1( nH alf).Width / 2 - lb_pter0.Width / 2 lb_pter2.Left = Label1( nM a
4、x).Left + Label1( nM ax).Width / 2 - lb_pter0.Width / 2 (2) 线性查找时的指针位置设置如下: lb_pter0.Left = Label1( nln dex).Left + Label1( nln dex).Width / 2 - lb_pter0.Width / 2 、模块之间的调用关系,或程序流程图 三、部分程序关键源代码及注释 Private Sub tmer_half_Timer() 折半查找过程 lb_pter0.Left = Label1(nMin).Left + Label1(nMin).Width / 2 - lb_pt
5、erO.Width / 2 lb_pter1. Left = Label1( nH alf).Left + Label1( nH alf).Width / 2 - lb_pterO.Width / 2 lb_pter2.Left = Label1( nM ax).Left + Label1( nM ax).Width / 2 - lb_pterO.Width / 2 If n lsOrdered( nNum, n Total_Num) = ORDER_UP Then If nNum(nMin) = n Target The n 按升序排列时的查找 检验最小值是否为目标值 Form2.txt_r
6、esult.Text = Form2.txt_result.Text + & 位置& vbCrLf 查找到目标数字” & nTarget & ”位于第 & n Min + 1 Label1(nMin).BackColor = RGB(0, 255, 0) bHasF ound = True End If If nNum(nM ax) = n Target Then 检验最大值是否是目标值 Form2.txt_result.Text = Form2.txt_result.Text + & 位置& vbCrLf 查找到目标数字& nTarget & 位于第 & nMax + 1 Label1( n
7、M ax).BackColor = RGB(0, 255, 0) bHasF ound = True End If If nNum(nH alf) = n Target The n 检验中间值是否是目标值 Form2.txt_result.Text = Form2.txt_result.Text + 查找到目标数字 ” & nTarget & ” 位于第 ” & nHalf + 1 & 位置& vbCrLf Label1(nHalf).BackColor = RGB(O, 255, 0) nMax = nMax -1可以实现重复数据的查找 nH alf = (nMin + nM ax) / 2
8、 bHasF ound = True ElseIf nNum(n Half) n Target The n nM ax = nHalf nH alf = (nMin + nM ax) / 2 End If If nM ax - nMin = 1 The n cmd_search.E nabled = True tmer_half.E nabled = False If bHasF ound = False Then Form2.txt_result.Text = Form2.txt_result.Text + 没有查找到目标数字 ” End If End If End If End Sub 线
9、性查找 Private Sub tmer_li ne_Timer() lb_pter0.Left = Label1( nln dex).Left + Label1( nln dex).Width / 2 - lb_pterO.Width / 2 查找到目标数字 If nNum(nln dex) = n Target Then bHasF ound = True Label1( nln dex).BackColor = RGB(0, 255, 0) Form2.txt_result.Text = Form2.txt_result.Text + 查找到目标数字 ” & nTarget & ” 位于
10、第 ” & nlndex + 1 & ” 位置 ” & vbCrLf End If nln dex = nln dex + 1 未查到目标数字的处理 If nlndex nTotal Num Then nln dex = 0 tmer_li ne.E nabled = False If bHasF ound = False Then Form2.txt_result.Text =没有找到目标数字” End If cmd_search.E nabled = True End If End Sub 四、设计方案的完善及目前存在的问题 1. 设计方案要完善的地方 折半查找时,如果输入了无序数据则要求重新输入,输入量较大。如果编辑程序使其实现自动排序将会 使程序更加合理。 2. 目前存在的问题 折半查找时,由于时钟控件的作用,查找结果可能会在窗体中重复显示。 五、本次设计的收获及心得体会 通过本次VB课程设计,我不但在程序阅读和编辑方面得到很大的提高,而且他还增加了我对于计算机 软件的兴趣,为我打开了通往精彩的“程序”世界的大门。程序的成功运行需要无数次的调试,这个过程需 要的是耐心与细心的品质,VB课程设计再次告诉我,要有耐心与细心才能攻克我们面前的难关,不论是课 程中的还是生活中的。 六、对该题目和VB设计的意见和建
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度智能仓储厂房出租居间合同范本3篇
- 二零二五年度车房租赁与停车大数据分析合同2篇
- 专业跑鞋定制采购合同(2024版)版B版
- 中英对照商品购销协议范本(2024年版)版
- 2025年度绿色节能型厂房装修合同范本4篇
- 专属药物开发:2024年度定制化服务协议版B版
- 二零二五年度餐饮企业食品安全教育与培训合同6篇
- 2024私人租赁汽车租赁合同范本(含跨境服务)3篇
- 2025年拆除工程劳务服务合同范本(含工期保障)4篇
- 2025便邻士便利店供应链合作框架协议范本3篇
- 英语名著阅读老人与海教学课件(the-old-man-and-the-sea-)
- 学校食品安全知识培训课件
- 全国医学博士英语统一考试词汇表(10000词全) - 打印版
- 最新《会计职业道德》课件
- DB64∕T 1776-2021 水土保持生态监测站点建设与监测技术规范
- 中医院医院等级复评实施方案
- 数学-九宫数独100题(附答案)
- 理正深基坑之钢板桩受力计算
- 学校年级组管理经验
- 10KV高压环网柜(交接)试验
- 未来水电工程建设抽水蓄能电站BIM项目解决方案
评论
0/150
提交评论