《第章+循环结构程序设计》-课件.ppt

《第章+循环结构程序设计》-课件.ppt

  1. 1、本文档共52页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第4章 循环结构程序设计 内容提要 循环是按照给定条件重复执行一组语句。循环控制流程和循环语句称为循环结构。譬如,统计一个班学生的平均分、不及格人数等,常常用到循环结构描述重复计算问题。 本章从语句的格式、功能和程序设计实例三个方面,介绍循环语句。并且,介绍循环嵌套即多重循环,定时器Timer控件和进度条ProgressBar控件。 4.1 循环语句 VB提供的循环语句有 While...Wend Do...Loop For...Next For Each...Next 最常用的是While...Wend和For...Next循环语句。通常,用循环语句进行程序设计称为循环结构程序设计。 4.1.1 循环的基本概念 例如,计算S=1+2+3+…+1000。比较下列两种程序段: (1)采用赋值语句,即: S=1+2+3+4+5+6+7+……+1000 由于中间不能省写,所以显得十分冗长。仔细观察,可见其中有大量的加法重复计算。 (2)采用计数型循环语句,即: S=0 ‘ 1)置S初值为0 For i=1 To 1000 ‘ 2)对于i从1到1000,重复执行: S=S+i ‘ ① S=S+i Next i ‘ ② i自动递增1,进入下次重复。 4.1.1 循环的基本概念 可见,循环语句易于描述按一定规律重复计算的问题,并且程序结构简单清晰。所以,应当尽量使用循环语句进行循环结构程序设计。 4.1.2 While…Wend(当型)循环语句 格式:While 条件 [ 循环体 ] Wend 说明:其中,方括号不是语句的符号,而是语法符号,表示可选项。这里,它表示循环体可以为空。 功能:当条件成立(为真)时,执行循环体;当条件不成立(为假)时,终止循环。被重复执行的一组语句称为循环体。循环体可以是任何语句或语句组。 4.1.2 While…Wend(当型)循环语句 图4.1 While…Wend语句的执行流程 While…Wend语句的执行流程图所示。其中,菱形框是条件判断框,矩形框是计算框,箭头表示走向。 4.1.2 While…Wend(当型)循环语句 例4.1 由键盘输入一系列整数,当输入数据为-999时结束循环。统计输入数据的负数之和,以及负数的平均值。用Print直接在窗体上输出结果。 通常,一个Windows应用程序设计包括两大部分:(1)用户界面即窗体设计;(2)代码设计即计算过程或事件处理过程。 首先,应当分析题意:题目要求做什么,怎么做?即先做什么,后做什么? 然后,从整体到局部,逐步求精及逐步细化地完成设计。应当先打草稿,再进入VB 6.0创建窗体、控件和属性,以及代码即计算过程或事件处理过程。 4.1.2 While…Wend(当型)循环语句 例4.1的Windows应用程序设计如下: 1.设计窗体、控件及其属性,如图4.2。拟在窗体上创建一个“开始”按钮控件,使得运行时用户能够单击该按钮,自动执行该按钮的单击事件处理过程,完成输数和统计。 4.1.2 While…Wend(当型)循环语句 其中,各对象的属性设置详见表4.1。 4.1.2 While…Wend(当型)循环语句 2.为了便于编写按钮的Click事件过程代码,先列出其算法即处理步骤如下: (1)Sum=0,Aver=0,用InputBox()输入第一个数,存入Num。 (2)当Num-999重复做: 1)如果 Num0 则 Sum=Sum+Num Count=Count+1 2)用InputBox()输入下个数,存入Num,再回到第(2)步。若Num=-999,则转到第(3)步。 (3)如果Count0则Aver=Sum/Count。 (4)输出Sum、Aver。 4.1.2 While…Wend(当型)循环语句 算法也可以用流程图描述,更加直观,如图。 4.1.2 While…Wend(当型)循环语句 3.按上列算法,编写“开始”按钮的事件过程Command1_Click()如下: Private Sub Command1_Click() Dim Num, Sum, Count As Integer ‘ 定义变量、初值。

文档评论(0)

沙卡娜 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档