- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
DO-While--Loop循环语句
* 在VB中,通常可以使用如下两种类型的循环语句: ■ For…Next 语句:适合处理循环次数预知的循环问题。 ■ Do…Loop 语句:适合处理可以用某种条件进行控制的循环问题。 Do While-Loop循环语句 Do While 溶液的PH值大于4 向溶液中加入一滴硫酸 Loop 条件 循环语句 Do While 条件 循环体 Loop Do语句的格式有多种,常用的Do语句格式如下: ?????????? ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 上面的Do语句的执行过程是:先计算条件表达式的值,如果值为True,则执行一次循环体中的语句块,遇到Loop语句后,再次计算条件表达式的值,若仍为True,继续执行循环体中的语句块,如此不断重复,直到条件表达式的值为False时,才终止Do语句的执行,其执行过程如下图所示。 首先判断条件是否成立,若条件成立,则执行循环语句。遇到Loop语句后,再次判断条件是否成立,若成立,继续执行循环语句,如此不断重复,当条件不成立时,则终止Do语句的执行。 Dim S As Integer, I As Integer S = 0 I = 0 Do While I = 100 S = S + I I = I + 1 Loop Print “s=, S 否 是 输出s i=100? i=i+1 i=1 开始 结束 s=0 s=s+i S=0 For I=1 to 100 Step 1 S=s+I Next I Print “s=” s 例题 用Do语句计算1+…+100 分析问题,得出答案 Private Sub Command1_Click()?? Dim S as Integer, M as Integer? S=0??? M=1 Do While M=10????? S=S+M __________________ Loop Print s End Sub M=M+1 说明:划线处代码是M=M+1,每执行完一次循环,M都增加1。在这个程序中,此语句十分重要,如果缺少,就会出现条件M=10永远成立的情况,程序将会无限地循环。因此在使用Do语句时,必须注意条件表达式中的变量值的变化方式,有可能会出现无限循环的情况。 用Do循环语句编写求s=1+2+3+…+10的程序,将划线处补充完整。 分析并完善程序 a = 1 : b = 0 do while a =3 a=a+1 b=b+a*a Loop print a,b 运行的结果是 ____________________ 4 29 分析并完善程序 已知S=1+2+3+……..+N,找出一个最大的整数N,使得S300. S=0 N=0 Do While ______ N=N+1 S=S+N ____________ N=N-1 print “最大整数N为:”; N S300 Loop *
您可能关注的文档
- DC-DC1.5V直流升压.docx
- DCC文件管理控制培训PPT-JH.ppt
- DCS3000习题.doc
- DDB2DB2 应用开发和系统管理DB2入门.doc
- DCD肝移植57例报告.ppt
- DDR2程序设计方案.doc
- dell培训课件.pptx
- delphi 高级实例Stream的使用.doc
- DELL阵列卡配置参考---PERC7_8_9.doc
- Delphi_流操作的语法.doc
- 2024精简护肤洁面趋势报告-TMIC-30正式版.doc
- 2024捕捉华夏民族珍味-咸味主食与咸味零食创新机遇报告-25正式版.doc
- 2024年秋季部编版小学道德与法治二年级上册全册课件PPT最新.pptx
- 部编版第十一册第四单元拓展提高教学课件.ppt
- 2024年秋季新西师大版一年级上册数学全册教学课件(新版教材).pptx
- 2024年秋新人教版一年级上册数学全册教学课件(新版教材).pptx
- 2024年秋季新人教版数学一年级上册全册教学课件(新版教材).pptx
- 2024年秋季新人教版数学一年级上册全册课件(新版教材).pptx
- 2024年秋季新人教版一年级上册数学全册教学课件(新版教材).pptx
- 2024年秋季新人教版一年级上册数学全册课件(新版教材).pptx
文档评论(0)