(vb课程设计)模拟查找过程_第1页
(vb课程设计)模拟查找过程_第2页
(vb课程设计)模拟查找过程_第3页
(vb课程设计)模拟查找过程_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论