程序设计基础——程序设计的循环结构

程序设计基础——程序设计的循环结构

ID:35428132

大小:70.78 KB

页数:7页

时间:2019-03-24

程序设计基础——程序设计的循环结构_第1页
程序设计基础——程序设计的循环结构_第2页
程序设计基础——程序设计的循环结构_第3页
程序设计基础——程序设计的循环结构_第4页
程序设计基础——程序设计的循环结构_第5页
资源描述:

《程序设计基础——程序设计的循环结构》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、程序设计基础一一程序设计的循环结构一、格式Fo“循环变量〉二〈初值>To〈终值>[Step步长]<循环体〉Next〈循环变量〉二、功能当循环变量的值在初值到终值范围内时,执行一次循环体中的语句块,并使初值增加一个步长。当循环变量的值不在初值到终值范围内时,就退出循环,执行Next后面的语句。For循坏语句执行的流程图。执行过程三、说明:仃)<循环变量九也称循环控制变量,它是一个数值变量,但不能是逻辑值或数组元素。(2)〈初值〉、〈终值>和〈步长〉:它们是一个数值表达式。步长为正数时,表示递增循环,初值小于或等于终值步长为负数时,表示递减循环,初值大于或等于终值步长不可以为0。步长为1

2、,可以省略不写1。(3)〈循坏体〉:在For语句和Next语句之间的语句序列,可以是一个或多个语句。(4)Next:是循环终端语句,在Next后血的循环变量与For语句中的循环变量必须相同。当只有一层循环时,Next后面的循环变量可略去不写。(5)For语句又叫做循环说明语句,用来指定循环变量的名称,以及循环变量的初值、终值和步长;循环体是被反复执行的部分(即循环工作部分),它可以由若干条语句所组成;Next,语句又叫做循环终端语句,其作用是改变循环变量的值(即增加一个步长)并控制是否再次执行循环体。(6)循环执行的次数:n=Int((终值一初值)/步长)(7)For-Next语句可

3、以嵌套使用,嵌套的层数没有限制,其基本要求是:每个循环只有一个惟一的变量作为循环变量;内层循环变量的Next语句必须放在上层循环变量的Next语句Z前。四、循环结构典型例题⑴求100以内奇数的和FOR—NEXTDOWHILE—LOOPDOLOOP—UNTILS=0For1=1to99step2S=S+INextIS=01=1DowhileI<=99S=S+I1=1+2LoopS=01=1DoS=S+I1=1+2LoopuntilI>100(2)S=1—2+3—4+……+99-100法一法二法三S=0Sl=0S2=0FOR1=1TO99STEP2s=oFOR1=1TO100IFIMOD

4、2=1THENS二S+Is=oFOR1=1TO100S=S+(-l)A(I-l)*INEXT1S1=S1+INEXTIFORJ=2TO100STEP2S2=S2+JNEXTJS=S1-S2ELSES=S-IENDIF(3)猴子吃桃S=1Fori=lto9S=2*(s+1)Nexti⑷打印图形*******************rj*****rjwrjwrp****IJ空格IJ空格IJ空格IJ空格IJ空格134114134133-213234224224232-132334334314331051132213FOR1=1TO3FOR1=1TO3FOR1=1TO3FOR1=1TO3FO

5、RI=-2TO2PRINTTAB(4)PRINTTAB(4)PRINTTAB(4)PRINTTAB(4・I)PRINTTAB(1+A■■■•■♦BS(D):FORJ=1TO3FORJ=1TOIFORJ=1TO4-1FORJ=lTO2FORJ=1TO5・PRINTPRINTPRINT“*”;*ABS(I)-12*ABS(I)NEXTJNEXTJNEXTJPRINTPRINTPRINTPRINTPRINTNEXTJNEXTJNEXTINEXTINEXTIPRINTNEXTIPRINTNEXTI(5)鸡兔同笼鸡兔同笼,共有100条腿,40个头,问鸡有几只,兔有几只?PrivateSubFo

6、rmClick()DimJiAsInteger'Ji变量表示鸡的个数DimTuAsInteger'Tu变量表示兔的个数DimLegAsInteger'Leg变量表示腿数'计算腿数'如果腿正好100只,则打印。ForJi=lTo40Tu二40-jiLe萨ji*2+Tu*4IfLeg=100ThenPrint鸡只〃,〃兔二〃;Tu;〃只〃EnclIfNextJiEndSub(5)编写程序,使得单击〃显示〃按钮后,随机产生10个属于区间[0,100)的自然数,'并保存于数组a中,然后在窗体上显示这10个数中的最大值。PrivateSubCommand1Click()Dima(9)AsTnt

7、egerDimmaxAsIntegerDimIAsTntegerMe.CisPrintRandomizeFori=0To9Step1a(i)=Tnt(Rnd*100)Printa(i)Nextimax=a(0)Fori=lTo9Ifmax

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

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

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