高等教育循环.pptx
《高等教育循环.pptx》由会员分享,可在线阅读,更多相关《高等教育循环.pptx(48页珍藏版)》请在咨信网上搜索。
1、主页主页 采用循环程序可以解决一些按一定规则重复执行的问采用循环程序可以解决一些按一定规则重复执行的问题。例如,统计一个班几十名学生,甚至全校几千名学生的题。例如,统计一个班几十名学生,甚至全校几千名学生的学期成绩,如求平均分、不及格人数等学期成绩,如求平均分、不及格人数等 本章主要内容 第第5 5章章 循环结构程序设计循环结构程序设计Do.Loop For.Next退出退出循环出口语句循环出口语句(Exit)(Exit)循环语句循环语句多重循环多重循环列表框与组合框列表框与组合框常用算法常用算法程序举例程序举例主页主页 循环循环是指在指定的条件下多次重复执行一组语句是指在指定的条件下多次重复
2、执行一组语句 被重复执行的一组语句称为被重复执行的一组语句称为循环体循环体 VB提供的循环语句有提供的循环语句有 For.NextFor.Next Do.Loop Do.Loop While.Wend While.Wend For Each.Next For Each.Next 最常用的是最常用的是For.NextFor.Next和和Do.LoopDo.Loop语句语句 假真循环体循 环 条件主页主页 For.Next循环主要是用在知道循环次数的情况下;若事先不循环主要是用在知道循环次数的情况下;若事先不知道循环次数,可以使用当型循环知道循环次数,可以使用当型循环Do.Loop 1.For.N
3、ext 1.For.Next循环语句循环语句 (计数控制计数控制)For 循环变量初值循环变量初值 To 终值终值 Step 步长值步长值 循环体循环体 Next 循环变量循环变量 2.Do While.Loop2.Do While.Loop语句语句 (条件控制条件控制)Do While|Until 条件条件 循环体循环体 Loop 5.1 循环语句循环语句 示例示例 求求S=1+2+3+8 s=0 For k=1 To 8 s=s+k Next k Print s=;s 程序运行结果如下:程序运行结果如下:s36 n=1:s=0 Do While n=8 s=s+n n=n+1 Loop P
4、rint s=;s例例5.2K K为循为循环变量环变量专设变量专设变量n n来控制循环来控制循环主页主页 例例5.2 5.2 求求S=1+2+3+8S=1+2+3+8,把结果显示在窗体上。,把结果显示在窗体上。s=0s=0 累加器初值为累加器初值为0 0 For k=1 To 8For k=1 To 8 s=s+k s=s+k 累加器,在原有和的基础上每次加一个数累加器,在原有和的基础上每次加一个数 NextNext Print s=;s Print s=;s 程序执行结果是:程序执行结果是:s s3636 分析分析 累加器累加器 s=s+kk=1k=1s s s+ks+k 0 10 1k=3
5、k=3s s s+k s+k 1+2 3 1+2 3k=2k=2s s s+s+k k 1 21 2k=8k=8s s s+k s+k 1 1+2 2+7 7 8 8主页主页算法:通常采用重复运算来解决问题算法:通常采用重复运算来解决问题 累加、累乘等累加、累乘等 如用级数如用级数 /41-1/3+1/5-1/7+来求来求设置循环变量设置循环变量 使每次运算变量值有所不同使每次运算变量值有所不同控制循环控制循环 计数控制或条件控制计数控制或条件控制 循环结构程序的实现循环结构程序的实现求求 S=1+2+3+8 s=0 For k=1 To 8 s=s+k Next k Print s=;s 把
6、长式子改为把长式子改为8次加次加主页主页 采用采用Print直接在窗体上输出结果,程序代码:直接在窗体上输出结果,程序代码:Private Sub Form_Load()Show t=1 For c=1 To 8 t=t*c Next c Print T=;t End Sub 程序运行结果是:程序运行结果是:T40320语句语句 t=t*c 称为乘法器。先将称为乘法器。先将t置置1(不能置不能置0)。在循环程序中,常用累加和累乘来完成各种计算任务在循环程序中,常用累加和累乘来完成各种计算任务例例5.3 求求T=8!=1238例例5.3主页主页 例例5.35.3 T=8!=123 8T=8!=1
7、23 8,把结果显示在网页上。,把结果显示在网页上。t=1t=1 累乘器初值为累乘器初值为 For c=1 To 8For c=1 To 8 t=t*c t=t*c 累乘器,在原有积的基础上每次乘一个数累乘器,在原有积的基础上每次乘一个数 NextNext Print T=;t Print T=;t 程序执行结果是:程序执行结果是:T T4032040320 分析分析c=1c=1t t t*ct*c 1 11 1c=3c=3t t t*ct*c 1*2 3 1*2 3c=2c=2t t t*ct*c 1 21 2c=8c=8t t t*ct*c 1 1*2*2*7 8 7 8累乘器累乘器 t=
8、t*k主页主页 采用采用Print直接在窗体上输出结果,程序代码如下:直接在窗体上输出结果,程序代码如下:Private Sub Form_Load()Show Dim pi As Single,c As Integer,s As Integer pi=0 s=1 s表示加或减运算表示加或减运算 For c=1 To 10000 Step 2 pi=pi+s/c s=-s 交替改变加、减号交替改变加、减号 Next c Print=;pi*4 End Sub 程序运行结果是:程序运行结果是:3.141397 例例5.4 用用/41-1/3+1/5-1/7+级数级数求求的近似值的近似值 (取前取
9、前5000项来进行计算项来进行计算)例例5.4主页主页 For t=1 To 3 If t=1 Then a=3 If t=2 Then a=2 If t=1 Then a=3 If t=2 Then a=2 If t=3 Then a=1 Print a;Next t Print t A.3 3 3 4 B.1 2 3 4 C.3 2 1 4 D.1 1 1 4 下列程序的运行结果是?下列程序的运行结果是?想一想想一想思考题思考题C主页主页 运行下面程序后,循环体执行了运行下面程序后,循环体执行了_次。次。i=0:n=1 Do While i 32 i=(i+1)*(i+1)n=n+1 Lo
10、op Print n A.2 B.3 C.4 D.5 请回答问题请回答问题想一想想一想思考题思考题C主页主页 s=ABCDEFGHIJ:c=For k=2 To Len(s)Step 3 a=Mid(s,k)c=c+Left(a,1)Next k Print c A.BDF B.CFI C.BEH D.BEI 下列程序的运行结果是?下列程序的运行结果是?想一想想一想思考题思考题C主页主页 采用采用Do While.Loop语句语句 采用采用Print直接在窗体上输出结果,程序代码:直接在窗体上输出结果,程序代码:Private Sub Form_Load()Dim n As Integer,s
11、 As Long Show n=1:s=0 Do While n=100 s=s+n*n n=n+1 Loop Print s=;s End Sub 程序运行结果:程序运行结果:S338350例例5.55.5 求求 S S1 12 2+2+22 2+100+1002 2例例5.5主页主页 “辗转相除法辗转相除法”算法:算法:求出求出m/n余数余数p,若,若p0,n即为即为最大公约数;若最大公约数;若p非非0,则把原来的分母,则把原来的分母n作为新的分子作为新的分子m,把,把余数余数p作为新的分母作为新的分母n继续求解继续求解 设计步骤如下:设计步骤如下:(1)创建应用程序的用户界面和设置对象属
12、性创建应用程序的用户界面和设置对象属性例例5.7 输入两个正整数,求它们的最大公约数输入两个正整数,求它们的最大公约数例例5.7主页主页 编写的编写的“计算计算”按钮按钮Click事件过程代码如下:事件过程代码如下:Private Sub Command1_Click()Dim m As Integer,n As Integer,p As Integer m=Val(Text1.Text):n=Val(Text2.Text)If m=0 Or n=0 Then MsgBox(数据错误数据错误!)End End If Do p=m Mod n m=n n=p Loop While p 0 Tex
13、t3.Text=m End Sub 若输入的若输入的m和和n的值为的值为85和和68,则运行结果如上图,则运行结果如上图主页主页 语句格式:语句格式:While While 条件条件 循环体循环体 WendWend 功能:当条件成立功能:当条件成立(为真为真)时,执行循环体;当条件不成立时,执行循环体;当条件不成立(为假为假)时,终止循环。时,终止循环。本语句与上述本语句与上述Do While.LoopDo While.Loop循环语句相似,其差别是:循环语句相似,其差别是:While.WendWhile.Wend语句中不能使用语句中不能使用ExitExit语句跳出循环。语句跳出循环。5.1.
14、35.1.3 While.Wend While.Wend循环语句循环语句 主页主页 用于提前退出循环用于提前退出循环 格式:格式:Exit For|Do功能:直接从功能:直接从For循环或循环或Do循环中退出循环中退出 当程序运行时遇到当程序运行时遇到Exit语句时,就不再执行循环体中的任语句时,就不再执行循环体中的任何语句而直接退出,转到循环语句何语句而直接退出,转到循环语句(Next、Loop)的下面继续的下面继续执行执行 5.1.4 5.1.4 循环出口语句循环出口语句主页主页 把每次输入的数累加。当输入把每次输入的数累加。当输入-1时结束程序的运行时结束程序的运行创建应用程序的用户界面
15、和设置对象属性创建应用程序的用户界面和设置对象属性 编写程序代码编写程序代码 Private Sub Form_Load()Show Sum=0 Do While True 条件为真,循环无终止进行下去条件为真,循环无终止进行下去 x=Val(InputBox(请输入要加入的数请输入要加入的数(-1表示结束表示结束),输入数据输入数据)If x=-1 Then Exit Do End If Sum=Sum+x Text1.Text=Sum Loop MsgBox(累加运算结束累加运算结束)End Sub 以以-1作为作为“终止循环标志终止循环标志”例例5.85.8 设计一个设计一个“加法器加法
16、器”程序程序例例5.8主页主页 多重循环是指循环体内含有循环语句的循环多重循环是指循环体内含有循环语句的循环 例例5.9 多重循环程序示例多重循环程序示例 程序运行结果程序运行结果 Private Sub Form_Load()1 5 Show 1 6 For i=1 To 3 外循环外循环 1 7 For j=5 To 7 内循环内循环 2 5 Print i,j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意内、外循环层次要分清,不能交叉注意内、外循环层次要分清,不能交叉 5.25.2 多多 重重 循循 环环例例5.9主页主页 本例可采用本例可采用
17、两重循环两重循环来实现。外循环控制输出来实现。外循环控制输出7行,内循行,内循环控制每行输出要求的字符数。环控制每行输出要求的字符数。在进入内循环之前,使用在进入内循环之前,使用Print Tab()来对起始输出位置来对起始输出位置定位,退出内循环后,使用定位,退出内循环后,使用Print来控制换行。来控制换行。例例5.105.10 编一程序,输出下列所示的图形编一程序,输出下列所示的图形例例5.10主页主页 采用采用Print直接在窗体上输出结果,程序代码如下:直接在窗体上输出结果,程序代码如下:Private Sub Form_Load()Show For i=1 To 7 Print T
18、ab(10-i);For j=1 To 2*i-1 Print Chr(i+48);Next j Print Next i End Sub Print Chr(i+48)与与Print i有所不同有所不同主页主页 (1)分析:分析:设一元硬币为设一元硬币为a枚,二元硬币为枚,二元硬币为b枚,五元硬币枚,五元硬币为为c枚,可列出方程枚,可列出方程 a+b+c=10 a+2b+5c=25采用两重循环,外循环变量采用两重循环,外循环变量a从从010,内循环变量,内循环变量b从从010 (2)创建应用程序的用户界面创建应用程序的用户界面例例5.115.11 取一元、二元、五元的硬币共十枚,付取一元、二
19、元、五元的硬币共十枚,付 给给2525元钱,有多少种不同的取法元钱,有多少种不同的取法?例例5.11主页主页 (3)编写程序代码编写程序代码 程序通过程序通过Print方法把处理结果输出在标签的下方。方法把处理结果输出在标签的下方。Private Sub Form_Load()Show CurrentX=0:CurrentY=1500 确定开始显示的坐标确定开始显示的坐标 Print ,五元五元,二元二元,一元一元 n=0 记录解的组数记录解的组数 For a=0 To 10 For b=0 To 10 c=10-b-a If a+2*b+5*c=25 And c=0 Then n=n+1 P
20、rint(;n;),c,b,a End If Next b,a End Sub主页主页 执行下列程序段后,变量执行下列程序段后,变量t 的值是的值是_。t=0 For x=2 To 3 n=1 Do While n=x t=t+n n=n+1 Loop Next x A.8 B.9 C.10D.11 请回答问题请回答问题想一想想一想思考题思考题B主页主页 请回答问题请回答问题想一想想一想思考题思考题显示结果为:显示结果为:16执行下列程序段后,显示的结果是执行下列程序段后,显示的结果是_ s=0 For m=1 To 4 Step 2 n=1 Do While n=m s=s+n n=n+1
21、Loop Next m Print s+m+n例例5.12a主页主页 5.3 列表框与组合框列表框与组合框 列表框和组合框都能为用户提供若干个选项,供用户从中任列表框和组合框都能为用户提供若干个选项,供用户从中任意选择意选择 5.3.1 5.3.1 列表框列表框(ListBox)(ListBox)List属性:字属性:字 符型数组符型数组,存放列表存放列表框的表项框的表项 数组的下标从数组的下标从0开始。开始。例如,例如,List1.List(0)的值为的值为“教授教授”,List1.List(1)的值为的值为“副教授副教授”。ListCount属性:表项数目属性:表项数目 Text属性:当前
22、选定表项的文本内容属性:当前选定表项的文本内容 ListIndex属性:返回已选定表项的顺序号属性:返回已选定表项的顺序号(索引索引)。若未选定任。若未选定任何项,则何项,则ListIndex的值为的值为-1 Selected属性:逻辑型数组,表示列表框中某一表项是否被选属性:逻辑型数组,表示列表框中某一表项是否被选中中例例5.12b主页主页 假设列表框假设列表框List1中有四个表项,并已选定第中有四个表项,并已选定第2项,则项,则 有:有:List1.ListIndex 为为1 List1.Text的值为的值为”副教授副教授”List1.Selected(1)为为True 主页主页方法方法
23、 (1)AddItem方法:用于把一个列表项加入列表框方法:用于把一个列表项加入列表框 格式:格式:对象对象.AddItem 列表项列表项,索引,索引 举例:举例:List1.AddItem 海南省海南省,28 (2)Clear方法:用于清除列表框中的所有项目方法:用于清除列表框中的所有项目 (3)RemoveItem方法:用于删除指定的列表项方法:用于删除指定的列表项 采用以下方法,可为列表框采用以下方法,可为列表框List1赋值:赋值:(1)在属性窗口中设置在属性窗口中设置 (2)利用利用AddItem赋值赋值 (3)利用利用List属性赋值属性赋值 List1.AddItem“教授教授”
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高等教育 循环
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【精***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。