循环结构vb语句.ppt

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

程序设计的循环结构梅山高中信息组主要内容:(1)次数已知的循环语句for…next(2)当型循环语句while…wend(3)当型/直到型循环语句do….loop

程序循环结构(for…next语句循环)For循环变量一般形式是:For循环变量=初值To终值Step步长循环体[exitfor]Next循环变量例题1:求s=1+2+3+4.....+100PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100sum=sum+i循环体NextiPrintsum=;sumEndSub例题2:PrivateSubForm_Click()Forj=3To15Step2PrintjNextjEndSub

以上可以看出,For-Next循环变量是一种当型循环。说明For语句与Next语句必须成对出现,这种循环语句属于当型循环,它可以看作是循环次数已知的一种循环.对循环次数一定的问题,适合用for….next语句来实现

for循环练习一1、编程计算:1+(1+2)+(1+2+3)+……+(1+2+3+……+100)s=0p=0fori=1to100p=p+is=s+pnextiprints

2、编程计算1*100+2*99+3*98+……+100*1s=0P=0fori=1to100P=i*(101-i)s=s+pnexti

3、编程计算10*12+11*22+12*32+……+209*2002s=0P=0fori=1to200P=(9+i)*(i*10+2)s=s+pnexti

While…wend也属于当型循环.但它与for…next不同的是:while…wend不是通过计算来决定是否循环,而是直接通过判断语句中的条件表达式是否为true来决定是否循环.格式:while条件循环体wend执行过程:说明:条件为关系表达式或逻辑表达式.while…wend语句

例题:求最大公约数PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimrAsIntegera=Val(Text1.Text)b=Val(Text2.Text)r=aModbWhiler0a=bb=rr=aModbwendText3.Text=Str(b)EndSubPrivateSubCommand2_Click()EndEndSub

do...loop通过和while,until语句的配合使用,可以方便地实现“当型(while)循环”和“直到型(until)循环”.格式1:Dowhile条件格式2:Dountil条件循环体循环体LoopLoop格式3:Do格式4:Do循环体循环体Loopwhile条件Loopuntil条件do…loop语句

例题:如果我国人口每年以平均1.5%的速度增长,问多少年后我国人口达到或超过15亿?设现在人口为12.3亿。PrivateSubForm_Click()DimpAsSingleDimrAsSingleDimnAsIntegerp=1230000000#r=0.015n=0Dop=p*(1+r)n=n+1LoopUntilp=1500000000#Printn;年后,人口=;pEndSub

1、在VB中,以下程序段:x=0DoWhilex50x=(x+2)*(x+3)L

文档评论(0)

好文精选 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档