VisualBasic程序设计第五章ppt课件.ppt

VisualBasic程序设计第五章ppt课件.ppt

ID:59413997

大小:403.00 KB

页数:47页

时间:2020-09-19

VisualBasic程序设计第五章ppt课件.ppt_第1页
VisualBasic程序设计第五章ppt课件.ppt_第2页
VisualBasic程序设计第五章ppt课件.ppt_第3页
VisualBasic程序设计第五章ppt课件.ppt_第4页
VisualBasic程序设计第五章ppt课件.ppt_第5页
资源描述:

《VisualBasic程序设计第五章ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、VisualBasic程序设计第五章循环结构程序设计9/7/20211第五章循环结构程序设计循环结构是指在程序中,从某处开始有规律地反复执行某一操作块或程序块的现象。被重复执行的操作块或程序块称为循环体,循环体的执行与否及次数多少视循环类型与条件而定。但,无论何种类型的循环结构,其共同的特点是:必须确保循环体的重复执行级被终止,即非无限循环。VB提供了三种不同风格的循环语句:1.For…Next语句2.While…Wend语句3.Do…Loop语句9/7/202125.1For循环For…Next循环语句通常用于循环次数已知的情况下,按指定次数执行循环体。它在循环体中使用

2、一个循环变量(计数器),每重复一次循环后,循环变量的值就会自动增加或者减少。5.1.1For循环的语法For<循环变量>=<初值>To<终值>[Step<步长>][<语句组1>][ExitFor][<语句组2>]Next[<循环变量>]9/7/20213说明:①<循环变量>用作循环计数器的必要参数,为数值型,不能是数组元素。②<初值>和<终值>也是必要参数,数值型,可以是表达式。③<步长>循环变量的增量,正数或负数。为正时,初值应小于终值;为负时,初值应大于终值;步长不能为0;步长为1时,Step1可以省略。④Next后面的循环变量与For语句中的循环变量必须相同。5.1

3、.2For循环语句的执行过程①进入For…Next循环后,首先把<初值>赋给<循环变量>,检查<循环变量>的值是否超过<终值>,若超过即停止执行循环体,跳出循环,执行Next后面的语句,否则,执行一次循环体,然后把<循环变量>+<步长>的值赋给<9/7/20214循环变量>,重复上述过程。循环变量获得初值循环变量超过终值?循环体循环变量加步长YNFor循环语句执行流程9/7/20215②这里的所谓“超过”有两种含义,即大于或小于:当<步长>为正值时,检查<循环变量>的值是否大于<终值>;当<步长>为负值时,检查<循环变量>的值是否小于<终值>。③可以在循环中的任何位置放置

4、任意个ExitFor语句,随时退出循环。5.1.3For…Next循环的循环次数For…Next循环遵循“先检查,后执行”的原则,即先检查<循环变量>是否超过<终值>,然后决定是否执行循环体。在下列两种情况下,循环体不被执行:①当<步长>为正数时,<初值>大于<终值>。②当<步长>为负数时,<初值>小于<终值>。因此,循环的最少执行次数为0次。9/7/20216当<初值>等于<终值>时,不管<步长>是正数还是负数,均执行一次循环体。循环次数由<初值>、<终值>和<步长>三个因素决定:循环次数=INT((终值-初值)/步长+1)5.1.4For…Next循环语句应用示例例5

5、_1:用For…Next循环编程,求1+2+3+…+100,交输出循环次数。[分析]采用累加法,用变量S(累加器)来存放累加的和(初值为0),用变量n(计数器)存放加数(加到S中的数),从1-100。流程图:S=0{累加器赋初值0}n从1到100S=S+n{累加}输出累加结果S的值9/7/20217界面设计:程序代码:PrivateSubCommand1_Click()DimSAsInteger,nAsIntegerS=0Forn=1To100S=S+nNextnText1.Text=SEndSubPrivateSubCommand2_Click()EndEndSub9/

6、7/20218N从1到1000若n被37整除真输出n对象名称属性属性值Form1Caption输出1000以内能被37整除的所有自然数Text1MultiLineScrollBarTrue2Command1Command2CaptionCaption确定(O)结束(E)例5_2:输出1000以内所有能被37整除的自然数。程序流程图:界面设计:9/7/20219程序代码:PrivateSubCommand1_Click()Text1.Text=""Forn=1To1000IfnMod37=0ThenText1.Text=Text1.Text&Str(n)&Chr(13)&C

7、hr(10)EndIfNextnText1.Text=Text1.TextEndSubPrivateSubCommand2_Click()EndEndSub9/7/202110对象名称属性属性值Form1Caption求N!Label1Caption输入一个自然数:label2Caption空Text1-text2Text空Command1-command3Caption确定(O)清除(C)结束(E)例5_2:求N!。[分析]由阶乘的定义可知:N!=1*2*…*(N-2)*(N-1)*N=(N-1)!*N,即一个自然数的阶乘等

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。