




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、第三章第三章算法的程序实现算法的程序实现3.3在数组中查找数据在数组中查找数据什么是数组什么是数组v数组不是一种基本数据类型,而是一组相同类型的变量集合,数组不是一种基本数据类型,而是一组相同类型的变量集合,集合中的每个元素都是独立的变量,它们能够通过数组序号集合中的每个元素都是独立的变量,它们能够通过数组序号被引用。变量与数组的关系如图所示,变量类似于一个个独被引用。变量与数组的关系如图所示,变量类似于一个个独立的柜子,而数组则类似于一组柜子,它们共同构成一个整立的柜子,而数组则类似于一组柜子,它们共同构成一个整体,可以用统一的编号进行管理。体,可以用统一的编号进行管理。v在在VB中定义数组
2、的格式为:中定义数组的格式为:vDim 数组名数组名(常量常量) As 数据类型数据类型v例如,用数组例如,用数组aryChinese来表来表v示示50名同学的语文成绩,可以定义为:名同学的语文成绩,可以定义为:vDim aryChinese(49) As Singlev这个数组共有这个数组共有50个元素,分别为个元素,分别为aryChinese(0)、aryChinese(1)aryChinese(49),数据类型为单精度。,数据类型为单精度。v(1)数组)数组v一组相同类型的变量集合,集合中的每个元素都是独立的变量,它一组相同类型的变量集合,集合中的每个元素都是独立的变量,它们能够通过数组
3、序号被引用。们能够通过数组序号被引用。vmark(1 to 100)表示一个包含表示一个包含100个数组元素的名为个数组元素的名为mark。v(2)数组元素(数组中的变量,用下标表示)数组元素(数组中的变量,用下标表示) 表示方法:数组名(表示方法:数组名(P1,P2,)vP1,P2是是“下标下标”,表示元素在数组中的排列位置。,表示元素在数组中的排列位置。v(3)数组维数:(由数组元素中下标的个数决定)一个下标表示一维数组)数组维数:(由数组元素中下标的个数决定)一个下标表示一维数组vVB中有一维数组、二维数组、中有一维数组、二维数组、,最多有,最多有60维数组维数组v(4)下标(表示顺序号
4、)下标(表示顺序号)v每个数组有一个唯一的顺序号;每个数组有一个唯一的顺序号;v下标不能超过数组声明时的上、下界范围;下标不能超过数组声明时的上、下界范围;v下标可以是整型的常量、变量、表达式及一个数元素;下标可以是整型的常量、变量、表达式及一个数元素;v取值范围:下界取值范围:下界to 上界,缺省下界,默认为上界,缺省下界,默认为0。下界最小为。下界最小为-32768,上界最大为上界最大为32767。v练习:判断下列数组的取值范围:练习:判断下列数组的取值范围:A(10),),B(3 to 5)v(5)数组声明(先声明后使用)数组声明(先声明后使用)v声明数组声明数组让系统在内存中分配一个连
5、续的区域,用来存储数组元素。让系统在内存中分配一个连续的区域,用来存储数组元素。v声明内容:数组名、类型、维数、数组大小声明内容:数组名、类型、维数、数组大小v数组的赋值和一般变量的赋值类似,下面这数组的赋值和一般变量的赋值类似,下面这段代码可以将数组中各元素重新置段代码可以将数组中各元素重新置0:vFor i = 0 To 49varyChinese( i ) = 0vNextv“明日之星英语演讲大赛明日之星英语演讲大赛”计分问题:计分问题:v输入选手号和输入选手号和10名评委的评分,通过顺序查名评委的评分,通过顺序查找,去掉一个最高分和一个最低分,求出选找,去掉一个最高分和一个最低分,求出
6、选手的最后平均得分,输出结果。手的最后平均得分,输出结果。请你说说看该怎样才能得出请你说说看该怎样才能得出选手的得分?选手的得分?顺序查找顺序查找v顺序查找是查找算法中简单、易行的算法。顺序查找是查找算法中简单、易行的算法。进行查找时,一般从数据的第一个元素开始,进行查找时,一般从数据的第一个元素开始,按照数据的顺序查找指定的关键值;如果被按照数据的顺序查找指定的关键值;如果被查数据和该关键值相匹配,则表示找到;如查数据和该关键值相匹配,则表示找到;如果所有数据与关键值都不匹配,则表示被查果所有数据与关键值都不匹配,则表示被查数据中不存在该关键值,查找失败。数据中不存在该关键值,查找失败。vO
7、ption ExplicitvPrivate Sub Command1_Click()v Dim Max As Singlev Dim Min As Singlev Dim Scores(10) As Singlev Dim Last As Singlev Dim i As Integerv v Scores(0) = txtPw1.Textv Scores(1) = txtPw2.Textv Scores(2) = txtPw3.Textv Scores(3) = txtPw4.Textv Scores(4) = txtPw5.Textv Scores(5) = txtPw6.Textv S
8、cores(6) = txtPw7.Textv Scores(7) = txtPw8.Textv Scores(8) = txtPw9.Textv Scores(9) = txtPw10.Textv查找最大值查找最大值v Max = Scores(0)v For i = 1 To 9v If Scores(i) Max Thenv Max = Scores(i)v End Ifv Next i v v 查找最小值查找最小值v Min = Scores(0)v For i = 1 To 9v If Scores(i) intHigh Thenv labNumber.Caption = 猜不到你的
9、猜不到你的数!数!v cmdOK.Caption = 开始开始v cmdSmaller.Enabled = Falsev cmdBigger.Enabled = Falsev Elsev intMid = intLow / 2 + intHigh / 2v labNumber.Caption = intMidv End IfvEnd SubvPrivate Sub cmdOK_Click()v If cmdOK.Caption = 开始开始 Thenv cmdOK.Caption = 正确正确v cmdSmaller.Enabled = Truev cmdBigger.Enabled = Tr
10、uev intLow = txtLow.TextvintHigh = txtHigh.Textv intMid = intLow / 2 + intHigh / 2v labNumber.Caption = intMidv Elsev MsgBox 猜对了!猜对了!, vbOKOnly + vbInformation, 信息提示信息提示v cmdOK.Caption = 开始开始v cmdSmaller.Enabled = Falsev cmdBigger.Enabled = Falsev End IfvEnd SubvPrivate Sub cmdSmaller_Click()v intLo
11、w = intMid + 1v If intLow intHigh Thenv labNumber.Caption = 猜不到你的数!猜不到你的数!v cmdOK.Caption = 开始开始v cmdSmaller.Enabled = Falsev cmdBigger.Enabled = Falsev Elsev intMid = intLow / 2 + intHigh / 2v labNumber.Caption = intMidv End IfvEnd Sub对数据进行排序冒泡排序算法知识回顾:知识回顾:v两变量交换算法两变量交换算法 如两杯饮料交换方法相似如两杯饮料交换方法相似mnt
12、过程:(用第三个变量实现) t=m m=n n=t例题:请把纸牌从小到大进行排序例题:请把纸牌从小到大进行排序12345数数组组变变量量a冒 泡 排 序经经典算法之典算法之冒泡排序冒泡排序:把较小的数据逐次向上推移的一种排序技术。如何实现将较小如何实现将较小数逐次从下向上数逐次从下向上推移呢?推移呢?从最后一个元素起,依次比较相邻的两个从最后一个元素起,依次比较相邻的两个 元素中的数据,将较小的数据调换到上面。元素中的数据,将较小的数据调换到上面。12345第第一一轮轮冒冒泡泡排排序序过过程程A(5)a(4)保持不变保持不变A(4)a(3),交换交换A(3)a(2),交换交换A(2)a(4)保
13、持不变保持不变A(4)a(3),交换交换A(3)a(2),交换交换12345第第三三轮轮冒冒泡泡排排序序过过程程A(5)a(3),不变不变12345第第三三轮轮冒冒泡泡排排序序过过程程A(5)a(4),交换交换For i= 1 to 4 Next iFor j=5 to step -1 if a(j)a(j-1) then t=a(j) a(j)=a(j-1) a(j-1)=t end if Next j比较两个比较两个数,如果数,如果后面的数后面的数比前面的比前面的小小,则,则交交换换i=1i=2i=3i=4i=12i=23i=34i=45a(j)a(j-1)a(5)a(4)a(4)a(3)
14、a(3)a(2)a(2)a(1)a(j)a(j-1)a(5)a(4)a(4)a(3)a(3)a(2)a(j)a(j-1)a(5)a(4)a(4)a(3)a(j)a(j-1)a(5)a(4)j=5 to 2j=5 to 3j=5 to 4j=5 to 5i+1For i= 1 to 4 For j= 5 to i+1 step -1 if a(j)a(j-1) then t=a(j) a(j)=a(j-1) a(j-1)=t end if Next jNext in-1n课后小结:课后小结:如果有如果有n个数组的元素进行排序,则要进行个数组的元素进行排序,则要进行n-1趟冒泡趟冒泡.第第n-1趟
15、冒泡要经过趟冒泡要经过1次比次比较较第一趟冒泡要经过第一趟冒泡要经过n-1次比较次比较第二趟冒泡要经过第二趟冒泡要经过n-2次比较次比较总计总计:(n-1)+(n-2)+(n-3)+2+1作业:作业:用冒泡排序法,对下面的用冒泡排序法,对下面的6个数进行排个数进行排序序:8、6、9、3、2、7(用数组表示)。(用数组表示)。代代 码码vdim A(1 to 6) as integervdim i as integer,j as integer, k as integer,t as integervA(1)=8 : A(2)=6 : A(3)=9 : A(4)=3 : A(5)=2: A(6)=
16、7vfor i=1 to 5v for j=6 to i+1 step -1v if A(j)A(j-1) then v k=A(j)v A(j)=A(j-1)v A(j-1)=kv end ifv next jvnext ivfor t=1 to 6vprint A(t)vnext t3.5 用递归法解决问题“从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,
17、庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?”这个故事有什么特点?自己调用自己如果在一个函数中,它自己调用了自己,这种现象叫递归调用。如果A函数调用B函数,B函数又反过来调用A函数,那这种现象也叫做递归调用。如果一个函数在定义时,直接或间接的调用了自己,这种算法在程序设计中
18、统称为递归法。递归法一般需要递归法一般需要定义函数定义函数来实现。来实现。 虽然VB为我们提供了大量的标准函数,但我们在实际应用时难免有时还是找不到合意的,那就只有自己解决了,这样为了一个特定的任务而编出来的函数叫自定义函数。Abs()、len()、date()、sqr()、msgbox()等二、自定义函数的作用二、自定义函数的作用 1、可以方便的把较为复杂的问题分解成若干、可以方便的把较为复杂的问题分解成若干个小问题去处理。个小问题去处理。(公司里就是采用这种模式的。公司里就是采用这种模式的。) 2、使程序结构清晰,层次分明,增强了程序、使程序结构清晰,层次分明,增强了程序的可读性。的可读性
19、。 一、标准函数一、标准函数 VB给我们提供了一些标准函数,我们不用了解这些函数如何求出来的,只管直接调用它们,挺方便的。如正弦函数,余弦函数,算术平方根有了这些函数,我们觉得很省事。如:求1加到100的算术平方根这个程序我们可以这样编写:例1 dim I as integer, s as single s=0 for i=1 to 100 s=s+sqr(i) next i print(“s=“,s) 在这个程序里,我们直接用到了求平方根函数,至于sqr(1),sqr(2)如何求出来的我们不需过问,只管直接用它的结果便是了。 象这样,VB给我们提供的,我们不用了解这些函数如何求出来的,只管直
20、接调用它们的这类函数叫做标准函数。二、用户自定义函数二、用户自定义函数我们来看看下面一个例子:求:1!2!3!10!?如果要编写程序,我们看到求阶乘的操作要执行10次,只不过每次所求的数不同。我们想:不至于编写10遍求阶乘的程序吧。我们希望有一个求阶乘的函数,假设为JS(X),那么我们就可以这样求这道题了:例2 dim I as integer, j as integer dim s as integer s=0 for i=1 to 10 s=s+js(i) next i print(“s=”,s)现在的问题是:VB没提供JS(X)这样一个标准函数,这个程序是通不过的。如果是VB的标准函数,
21、我们可以直接调用,如前面的sqr(i),而VB提供给我们的可供直接调用的标准函数不多。没关系,我们编写自己的函数!三、函数编写三、函数编写在VB中,自定义函数形式如下:PublicPrivate Function (参数列表)As 类型 局部常量、变量定义 语句组 函数名称返回值End FunctionPublic(公共的)-全局变量,指在所有程序(包括主程序和过程)中都可以使用的内存变量Private(私人的)-局部变量,用private语句声明的变量可被本窗体模块的任何过程访问,但其他模块却不能访问该变量参数列表:参数列表: ByVal | ByRef 变量名变量名 ( ) As 类型类型
22、 表示该参数按值传递不会修改变量原来的值表示该参数按地址传递会直接改变原来的变量值例3 编写一求阶乘的函数。我们给此函数取一名字就叫JS。FUNCTION js(n as integer) as integer dim I as integer, s as integer s=1 for i=1 to n s=s*i next i js=s end自定义函数的调用,可以有三种格式:变量=函数名称(参数)Call 函数名称(参数)函数名称 参数Private Function daxiao(a As Integer, b As Integer)Dim t As IntegerIf a b The
23、n t = a a = b b = tEnd IfEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 5y = 9Call daxiao(x, y)Print x=; x, “y=; yEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 5b = 9Daxiao a, bPrint a=; a, b=; bEnd Sub 在VB中,说自定义函数,就不能不提子过程.子过程的定义如下:Public|private (参
24、数列表)局部常量 变量定义End sub子过程和函数的本质是一样的,在VB中往往将函数看做特殊的子过程子过程与函数的区别:关键字:函数(Function) 子过程(sub)返回值:函数(可以有) 子过程(无)调用格式:变量=函数名称(参数)Call 函数名称(参数)函数名称 参数函数子过程Call 函数名称(参数)函数名称 参数使用递归算法必须要满足以下的递归条件:()存在递归结束条件及结束时的值()存在递归结束条件及结束时的值()能用递归形式表示,且递归向终止()能用递归形式表示,且递归向终止条件发展条件发展兔子繁殖问题兔子繁殖问题 有人养了一对兔子有人养了一对兔子, ,这对兔子以后每这对兔
25、子以后每月生一对兔子月生一对兔子, ,新生兔子从第三个月开始新生兔子从第三个月开始, ,也是每月生一对兔子也是每月生一对兔子. .从第三个月起从第三个月起, ,当当月新生兔子数为前两月新生兔子数之和月新生兔子数为前两月新生兔子数之和. .问问1212个月后这人有多少对新生兔子个月后这人有多少对新生兔子? ?1月2月3月4月5月Recursion(1)=1Recursion(2)=1Recursion(3)=Recursion(2)+Recursion(1)Recursion(4)=Recursion(3)+Recursion(2)Recursion(5)=Recursion(4)+Recursion(3)图图3-25 函数递归调用关系函数递归调用关系例例1:1:假设有如下假设有
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 来自大自然启示的故事寓言性质作文8篇范文
- 楼盘销售数据对比表
- 现代管理学理论与应用测试题
- 食品营养学与实践能力测试卷详解
- 疫情期间考试试题及答案
- 宜宾燃气考试试题及答案
- 仪器分析考试试题及答案
- 六一儿童摄影活动方案
- 六一古装活动方案
- 六一投球活动方案
- 维修发动机培训课件
- 2025年1月八省联考新高考语文试卷试题真题(精校打印)
- 2025年郑州铁路局招聘笔试参考题库含答案解析
- HRM4800原料立式磨使用手册
- 《高速公路改扩建工程永临结合护栏技术规程》
- 老年糖尿病与肌少症
- 【MOOC】政府审计学-南京审计大学 中国大学慕课MOOC答案
- 《基督教概论》课件
- 2025天猫服饰春夏趋势白皮书
- 虚拟现实技术导论 习题答案或解题思路 梁晓辉
- 计算机应用技术专业调研报告(高职)
评论
0/150
提交评论