vb程设第4章 循环结构程序设计

《vb程设第4章 循环结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计基础第4章循环结构程序设计假条件循环体真假循环体条件真VisualBasic程序设计基础内容提要循环是按照给定条件重复执行一组语句。循环控制流程和循环语句称为循环结构。例如：统计一个班学生的平均分、不及格人数等，常常用到循环结构描述重复计算问题。本章内容循环语句（语句格式、功能和程序设计实例）循环嵌套（多重循环）定时器（Timer）控件进度条（ProgressBar）控件VisualBasic程序设计基础4.1循环语句VB提供的循环语句有While...WendDo...LoopFor...NextForEach...

2、Next最常用的是While...Wend和For...Next循环语句。VisualBasic程序设计基础4.1.1循环的基本概念例如，计算S=1+2+3+…+1000。比较下列两种方法：（1）采用赋值语句，即：S=1+2+3+4+5+6+7+……+1000显得十分冗长。仔细观察，可见其中有大量的加法重复计算。（2）采用计数型循环语句，即：S=0'1）置S初值为0Fori=1To1000'2）对于i从1到1000，重复执行：S=S+i'①S=S+iNexti'②i自动递增1，进入下次重复。VisualBasic程序设计基础4.1.2While…W

3、end（当型）循环语句格式：While条件[循环体]Wend功能：当条件成立(值为真)时，执行循环体；当条件不成立(值为假)时，终止循环。VisualBasic程序设计基础例：计算S=1+2+3+4+5+6+7+……+100的值DimiAsInteger,sAsLongi=1:s=0Whilei<=100s=s+ii=i+1WendPrint"1+2+...+100=";sVisualBasic程序设计基础例4.1由键盘输入一系列整数，当输入数据为-999时结束输入。统计输入数据的负数之和，以及负数的平均值。用Print直接在窗体上输出结果。1．

4、设计窗体、控件及其属性VisualBasic程序设计基础2.算法流程图：VisualBasic程序设计基础3．按上列算法，编写“开始”按钮的事件过程如下：PrivateSubCommand1_Click()DimNum,Sum,CountAsInteger'定义变量、初值DimAverAsSingle:Sum=0:Count=0Num=Val(InputBox(“EnteraIntegerNumber:”))While(Num<>-999)'循环求和、计数、输下一个数IfNum<0ThenSum=Sum+NumCount=Count+1EndIfN

5、um=Val(InputBox("EnteraIntegerNumber:"))WendIfCount<>0ThenAver=Sum/Count'求平均Print"Sum=";Sum'在窗体上显示结果Print"Aver=";AverEndSubVisualBasic程序设计基础4.1.3Do...Loop循环语句Do...Loop有两种格式：前测型循环结构和后测型循环结构。两者区别在于判断条件的先后次序不同。1.前测型Do...Loop循环格式：Do[{While

6、Until}条件][循环体]LoopVisualBasic程序设计基础4.1.3D

7、o...Loop循环语句功能：dowhile...loop：当条件成立（真）时，执行循环体；当条件不成立（假），终止循环。（与while相同）dountil...loop：当条件不成立（假）时，执行循环体；直到条件成立（真），终止循环。VisualBasic程序设计基础例4.2求N!。用Print直接在窗体上输出结果。PrivateSubCommand1_Click()DimNAsInteger,IntCountAsIntegerDimLnFactAsLongLnFact=1'定义变量、初值intCount=1N=Val(InputBox("Ent

8、erN:"))'输入N值DoWhileintCount<=N'循环求阶乘LnFact=LnFact*intCount:intCount=intCount+1LoopPrint"Fact=";LnFact'在窗体上显示结果EndSubVisualBasic程序设计基础4.1.3Do...Loop循环语句2.后测型Do...Loop循环格式：Do[循环体]Loop[{While

9、Until}条件]说明：先执行循环体，然后判断条件，根据条件决定是否继续执行循环。VisualBasic程序设计基础4.1.3Do...Loop循环语句功能：do...loo

10、pwhile：先执行一次循环体，当条件成立（真）时，再执行循环体；当条件不成立（假），终止循环。Do...loopunti