第五章vb循环结构ppt课件.ppt

第五章vb循环结构ppt课件.ppt

ID:58681369

大小:749.00 KB

页数:60页

时间:2020-10-05

第五章vb循环结构ppt课件.ppt_第1页
第五章vb循环结构ppt课件.ppt_第2页
第五章vb循环结构ppt课件.ppt_第3页
第五章vb循环结构ppt课件.ppt_第4页
第五章vb循环结构ppt课件.ppt_第5页
资源描述:

《第五章vb循环结构ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、循环结构DoLoop之“当”循环形式1:形式2:DoWhile<条件表达式>Do语句块(循环体)语句块(循环体)LoopLoopWhile<条件表达式>当条件为真(true)时循环!DoLoop循环示例1PrivatesubForm_click()Dimnum%num=1Dowhilenum<=10PrintnumNum=num+1LoopEndsubPrivatesubForm_click()Dimnum%num=1DoPrintnumNum=num+1Loopwhilenum<=10EndsubS=1+2+3+……+100PrivateSubForm_Click()DimiAsIntege

2、r‘i为累加数DimsumAsInteger‘sum为累加和i=1sum=0DoWhilei<=100sum=sum+ii=i+1LoopPrintsumEndSubS=1+2+3+……+100PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegeri=1sum=0Dosum=sum+ii=i+1LoopWhilei<=100PrintsumEndSubDoLoop之“直到”循环形式1:形式2:DoUntil<条件表达式>Do语句块(循环体)语句块(循环体)LoopLoopUntil<条件表达式>直到条件为真(true)时退出循环!S=1+2+3+…

3、…+nPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAsIntegern=Val(Text1.Text)sum=0i=0DoUntili>nsum=sum+ii=i+1LoopText2.Text=sumEndSubS=1+2+3+……+nPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAslongn=Val(Text1.Text)sum=0i=0Dosum=sum+ii=i+1LoopUntili>nText2.Text=sumEndSub5.2For循环语句Fo

4、r循环语句是计数型循环语句,用于控制循环次数已知的循环结构。语句形式如下:For循环变量=初值To终值[Step步长][循环体]Next[循环变量]For循环变量=初值To终值[Step步长][循环体]Next[循环变量](1)“循环变量”:必须为数值型,取值范围在初值和终值之间。(2)“初值”、“终值”:都是数值型,可以是数值表达式。(3)“步长”:是数值型,可以是数值表达式。步长不能为0。如果步长是1,则Step1可以省略不写。(4)“循环体”:在For和Next之间一条或多条语句,他们将被执行指定的次数。(5)Next后面的循环变量与For语句中的循环变量必须相同。使用For循环计算1+

5、3+5+……+99的值PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAsIntegersum=0Fori=1to99step2sum=sum+iNextiPrintsumEndSubFor循环变量=初值To终值[Step步长][循环体]Next[循环变量]使用For循环计算1+3+5+……+99的值PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAsIntegersum=0Fori=99to1step-2sum=sum+iNextiPrintsumEndSubFor

6、循环变量=初值To终值[Step步长][循环体]Next[循环变量]For和DoLoop的比较采用For语句比DoLoop更加简明。一般情况下,能够预先确定循环次数时,应优先采用For语句,否则的话应该使用DoLoop语句【例5.13】利用随机数函数模拟抛硬币采用的方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数,如图所示。PrivateSubCommand1_Click()DimnAsLongDimn1AsLong,n2AsLongR

7、andomizen=Val(Text1.Text)n1=0n2=0Fori=1Tonr=Int(Rnd*2)Ifr=1Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub循环的嵌套——多重循环结构如果在一个循环内完整地包含另一个循环结构,则称为多重循环,或循环嵌套,嵌套的层数可以根据需要而定,嵌套一层称为二重循环,嵌套二层称

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

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

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