电子文档交易市场
安卓APP | ios版本
电子文档交易市场
安卓APP | ios版本

Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第5章

46页
  • 卖家[上传人]:E****
  • 文档编号:89183891
  • 上传时间:2019-05-20
  • 文档格式:PPT
  • 文档大小:1.55MB
  • / 46 举报 版权申诉 马上下载
  • 文本预览
  • 下载提示
  • 常见问题
    • 1、第 5 章 循环结构程序设计,本章学习目标,5.1 For循环,For循环格式: For 循环变量初值 To 终值 Step 步长 Exit For 循环体 Next 循环变量,5.1.1 For格式说明,流程图:,5.1.1 For格式说明,循环变量也称“循环计算器”或“循环控制变量”,用来记录循环的次数。 初值与终值均为数值或数值型表达式,表示循环的开始位置和终止位置,初值与终值的大小不固定。 步长是一个数值表达式,为循环变量的增量;如果省略,默认为1。当初值小于终值时步长为正书数,当初值大于终值时步长为负数。 Exit For可用于提前退出for循环。 Next后面的“循环变量”与For后面的“循环变量”必须相同。 执行步骤: 把“初值”赋给“循环变量” 检查“循环变量”是否超过终值,若没有则执行循环体,若超出则结束循环,执行Next后面的语句 循环变量加步长,转,继续循环。 直到循环变量达到终值时退出该循环。 由上可看出For-Next循环的循环次数由初值、终值和步长三个因素决定,计算公式为:循环次数Int(终值初值)/步长1。,案例5-1,案例5-1:单击窗体时,在窗体上打印

      2、输出5个“_”符号。,案例5-1,【案例分析】:如果在本实例中我们使用5个Print语句也可以达到效果,但书写比较麻烦。实际上这个一个重复5次输出的过程,所以我们使用For循环结构。本实例中,循环变量初值为1,总共循环5次,所以总值为5。 【操作步骤】: 1、界面设计 新建一窗体Form1,打开代码窗口,找到FORM_CLICK事件. 2、程序代码如下: Private Sub Form_Click() For i = 1 To 5 循环变量初值为1、终值为5 Print “_“ 循环体 Next i 下一次循环,直到结束 End Sub 结束 思考:如果循环起始值为0可以吗?循环的起始值和终止值有什么要求?,案例5-2,案例5-2:单击窗体时,在窗体上打印110。如图所示:,案例5-2,【案例分析】:可以看出这个实例是采用循环语句,这个实例与案例1的区别主要在于案例1中打印的每个内容都一样,而此例中每次输出的都不一样。仔细观察我们可以看到打印的内容其实和循环变量的变化是一致的。所以可以打印循环变量达到效果。 【操作步骤】: 1、界面设计 新建一窗体Form1,打开代码窗口,找到FOR

      3、M_CLICK事件. 2、程序代码 Private Sub Form_Click() For i = 1 To 10 Print i 打印输出循环变量 Next i End Sub 思考:假设我们将这十个数分两行输出,每行5个如何实现?,课堂练习5-1,课堂练习5-1:点击窗体,在窗体上打印输出120内的所有奇数的和。 【案例分析】:该实例和案例3很相似,但区别在于起始值不一样。同时这里使用到了数据的累加。 【操作步骤】: 1、界面设计: 新建一个窗体Form1,打开代码窗口,找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() Dim s As Integer For i = 1 To 20 Step 2 i的初值为1,终值为20,步长为2 s = s +i 累加 Next i Print “计算结果为:“ & s End Sub 思考:1、本实例中S变量的初始值是多少? 2、打印结果的语句可不可以放在循环内部?,课堂练习5-2,课堂练习5-2:点击窗体,在窗体上打印输出120内的所有能被3整除的数的乘积。 【案例分析】:该实例和课堂练习1很

      4、相似,它的起始值应该是3,步长应该是3。同时本实例中涉及到了乘积,乘积和累加的不同在于乘积的起始值必须为1。 【操作步骤】: 1、程序代码: Private Sub Form_Click() Dim s As Long s = 1 s的初值要为1 For i = 3 To 20 Step 3 i的初值为3,终值为20,步长为3 s = s * i 累积过程 Next i Print “计算结果为:“ & s End Sub 思考:1、本实例中S变量声明为整形可以吗?为什么? 2、变量初始化语句能不能放在程序内部? 3、如果我们需要能被3和2同时整除的数,那么步长应该是多少。,5.2 While循环,While语句的格式: While 循环体 Wend,5.2.1 While格式说明,While语句的格式: While 循环体 Wend,流程图如图所示:,执行过程如下: 执行While语句,判断条件是否成立; 如果条件成立,就执行循环体,否则,转到4执行; 执行Wend语句,转到1执行; 执行Wend语句下面的语句。,案例5-4,案例5-4:单击窗体时,显示1+2+3+100的值。 【案

      5、例分析】:本实例是一个循环计算并显示的过程,可以利While循环语句结构来实现,它的关键是要找到循环条件,在本实例中,实现循环的条件就是循环变量i的值不大于100。本案例中循环变量的初始值为1,累加变量的初始值为0,循环条件为计数变量不大于100。 【程序代码】 Private Sub Form_Click() Dim i , Sum As Integer 定义循环变量和累加变量 i=1 循环变量初始值为1 Sum=0 累加变量初始值为0 While i=100 循环满足的条件 Sum = Sum + i 执行循环体 i = i + 1 修改循环结束条件 Wend MsgBox “1+2+3+100=“ & Sum 将结果显示出来 End Sub,案例5-5,案例5-5:求1+1/2+1/3+1/n的和,要求计算到第n项的值小于0.0005。 【案例分析】:本案例仍然是进行求和运算,但每次参加运算的数是一个分数,分子始终为1,分母是这个数的序号,例如1,2,3,一直加到第n项的值 0.0005 循环满足的条件 Sum = Sum + 1/i 执行循环体 i = i + 1 修改循环变量

      6、的值,使循环趋于结束 Wend Print “计算结果是”&Sum 打印结果 End Sub,课堂练习5-3,课堂练习5-3:由键盘中输入10个任意整数,找出其中的最大数和最小数。 【案例分析】:本案例利用While循环来输入整数,然后通过if语句找出最大数和最小数。解题思路是当输入第一个整数时,由于此时只有一个数,故其既是最大数也是最小数,然后利用循环输入其它9个数,当每输入一个新数时,将新数与max和min比较,从而找出最大数和最小数,当循环结束时,最大数和最小数就已经保存在max和min中了。 【程序代码】: Private Sub Form_Click() Dim a As Integer, max As Integer, min As Integer, i As Integer a = Val(InputBox(“请输入任意一个整数“) max = a min = a i = 1 While i max Then max = a If a min Then min = a i = i + 1 Wend Print “max=“ & max, “min=“ & min End

      7、Sub,5.3 DoLoop循环,DoLoop型循环是最常见且最有效的循环结构。 语句格式为: Do 循环体 Loop 循环的关键是“有始有终”。所以,本语句结构的关键在于如何根据实际要求设置条件来限定循环次数,其解决的方法就是在DoLoop循环结构中添加分支语句,例如: Do 循环体 If 满足条件 Then Exit Do Loop 说明:Exit Do表示退出当前这层的DoLoop循环结构。选择结构用来设定条件,当满足设定条件时退出DoLoop循环,执行Loop后面的语句。,5.3.1 DoUntilLoop循环语句,1、Until前置型结构 Do Until 循环条件 循环体 Loop 【分析】: 该结构循环条件位于循环的开始部分。循环开始时就进行循环条件判断,所以循环体有可能一次都不执行循环。 Until循环结构中,如果不满足循环条件就执行循环,如果满足循环条件就跳出循环,例如上题中当s=200的情况就立即退出循环。 Until循环不同于For循环,循环变量需要人为编程进行改变,例如上题中的变量S需要每次加数值。,流程图如图,5.3.1 DoUntilLoop循环语句,2、U

      8、ntil后置型结构 Do 循环体 Loop Untill 循环条件 该结构循环条件位于循环的结尾部分。循环结束时就进行循环条件判断,所以循环体最少会执行一次。 其他循环变量的设置、循环条件的设置与前置型相同。,开始,5.3.2 DoWhileLoop循环语句,While循环结构与Until结构类似也可以根据循环条件的位置分为前置型和后置型。 While循环结构的前置型和后置型与Until循环结构相同,前置型可能一次都不执行循环体,而后置型最少会执行一次循环语句。 While循环结构的循环执行条件与Until正好相反,当程序满足循环条件执行循环,当不满足条件时退出循环。如上题中当s 200执行循环内容。 While循环结构中的循环变量与Until结构一样,需要人为编程进行改变,例如上题中的变量s需要每次加数值。 该结构的流程图与Until结构的流程图相同。,案例5-6,案例5-6:单击窗体时,显示1+2+3+100的值。 【案例分析】:本实例是一个循环计算并显示的过程,可以利用DoUntilLoop循环语句结构和DoWhileLoop循环语句结构来实现,循环条件是循环变量i的值不大于10

      9、0。 【代码分析】: Private Sub Form_Click() Dim i, s As Integer i为循环变量,s为计算的和 i = 1 Do Until i = 101 当i的值大于100时,将跳出循环 s = s + i i = i + 1 Loop MsgBox “1+2+3+100=“ & s 将结果显示出来 End Sub,案例5-7,案例5-7:单击窗体时,求1+2+3+i的和s不大于100时的i值。 【案例分析】:本实例是一个不确定循环次数的结构,可以利用DoUntilLoop循环语句结构和DoWhileLoop循环语句结构来实现,在本实例中,实现循环的条件就是s值大于100。 【代码分析】: Private Sub Form_Click() Dim i, s As Integer i = 1 Do While s = 100 循环条件s不大于100,大于100后将跳出循环 s = s + i i = i + 1 Loop MsgBox “i的值是“ & i - 1 End Sub,课堂练习5-4,课堂练习5-4:点击窗体,在窗体上打印输出120内的所有不能被3整除的数。 【案例分析】:该实例同样是要寻找循环的出界条件,不难分析循环条件为i 0 Th

      《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第5章》由会员E****分享,可在线阅读,更多相关《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第5章》请在金锄头文库上搜索。

      点击阅读更多内容
    最新标签
    发车时刻表 长途客运 入党志愿书填写模板精品 庆祝建党101周年多体裁诗歌朗诵素材汇编10篇唯一微庆祝 智能家居系统本科论文 心得感悟 雁楠中学 20230513224122 2022 公安主题党日 部编版四年级第三单元综合性学习课件 机关事务中心2022年全面依法治区工作总结及来年工作安排 入党积极分子自我推荐 世界水日ppt 关于构建更高水平的全民健身公共服务体系的意见 空气单元分析 哈里德课件 2022年乡村振兴驻村工作计划 空气教材分析 五年级下册科学教材分析 退役军人事务局季度工作总结 集装箱房合同 2021年财务报表 2022年继续教育公需课 2022年公需课 2022年日历每月一张 名词性从句在写作中的应用 局域网技术与局域网组建 施工网格 薪资体系 运维实施方案 硫酸安全技术 柔韧训练 既有居住建筑节能改造技术规程 建筑工地疫情防控 大型工程技术风险 磷酸二氢钾 2022年小学三年级语文下册教学总结例文 少儿美术-小花 2022年环保倡议书模板六篇 2022年监理辞职报告精选 2022年畅想未来记叙文精品 企业信息化建设与管理课程实验指导书范本 草房子读后感-第1篇 小数乘整数教学PPT课件人教版五年级数学上册 2022年教师个人工作计划范本-工作计划 国学小名士经典诵读电视大赛观后感诵读经典传承美德 医疗质量管理制度 2 2022年小学体育教师学期工作总结 2022年家长会心得体会集合15篇
    关于金锄头网 - 版权申诉 - 免责声明 - 诚邀英才 - 联系我们
    手机版 | 川公网安备 51140202000112号 | 经营许可证(蜀ICP备13022795号)
    ©2008-2016 by Sichuan Goldhoe Inc. All Rights Reserved.