程序的循环结构.ppt

《程序的循环结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2.4程序的循环结构掌握For循环语句的基本格式理解For循环语句的执行过程掌握循环变量在执行过程中的变化情况能用For循环结构编写简单的程序实例1、编程求1+2+3+…+10的和按照顺序结构编写程序如下：PrivateSubCommand1_Click()dimsasintegers=0s=s+1s=s+2……s=s+10printsendsub用这种方法能不能编程求出1+2+3……+100的和，1+2+3……+1000的和？实际这10条赋值语句在重复着同一个操作，都是将s加一个数和赋给s,如果用变量x表示

2、每一个加数，那么这10条语句就可以用一条表示：s=s+x，然后让x的取值分别为1到10这10个自然数，重复执行这条语句，就可以实现该程序的编写。这就要用到循环结构。2.4.1用For～Next语句建立循环结构用循环语句编写：PrivateSubCommand1_Click()Dimsasinteger,xasintegerS=0ForX=1to10step1S=S+XnextXprintSEndsub循环变量初值终值步长循环体1、For－next循环语句的格式：用于建立已知循环次数的循环结构For循环变量=初

3、值To终值Step步长循环体Next循环变量2、For循环语句的功能：执行For语句：先将初值赋给循环变量，并记住终值和步长（两数间隔）。然后进行判断，是否超出终值？如“超出”终值时，执行Next下一语句，否则执行循环体。执行循环体执行Next语句：循环变量加步长，返回重新判断2.4.2For循环语句的执行过程练一练针对for循环语句的语句格式，设置如下练习，指出下面程序中的错误:1、求1+2+3+4+5的和s=0fori=1to5step1s=s+inextjprints2、在VB窗体界面上输出1~10这1

4、0个自然数forI=1to10printij-i循环变量的名称要相同。For语句与Next语句必须成对出现，而且仅只步长为1时，才可以省略step13、求5+4+3+2+1的和s=0forI=5to1s=s+InextIprints4、求7+5+3+1的和：S=0ForI=7to1Step2S=S+INextIPrintS当初值小于终值时，步长为正数；当初值大于终值时，步长为负数；补充：1、循环变量必须为数值型， 初值、终值：都是数值型，可以是数值表达式。2、循环体：在For语句和Next语句之间的语句序列。

5、可以是一条语句，也可以是多条语句。Step－1－2问题2求S=1+2+……+100和值分析a、用循环产生1～100的自然数b、每产生一个自然数将其累加到求和变量中即：S=S+Nc、重复执行S=S+N即：循环体d、打印和的值的语句应在程序的末尾即：Print"S=1+2+……+1000=";S程序：PrivateSubCommand1_Click()   DimNasinteger,Sasinteger   S=0ForN=1To100     S=S+N      NextNPrint"S=1+2+…

6、…+100=";S EndSub问题3：一小球从200米高度自由下落，每次落地后反弹为原来高度的一半，然后再落下……，求该小球第十次落地时共经过了多少米的路程？分析：   设S表示小球经过的路程变量S=S+2H      H表示小球反跳的高度变量H=H/2      I表示小球落地的次数变量I=2To10PrivateSubCommand1_Click()DimHasinteger,Sasinteger,IasintegerS=200       H=S/2       For I=2To10 

7、          S=S+2*H           H=H/2       Next IPrint "到第十次落地共经过的路程是："; S;"米"endsub问题3：一小球从200米高度自由下落，每次落地后反弹为原来高度的一半，然后再落下……，求该小球第十次落地时共经过了多少米的路程？分析：   设S表示小球经过的路程变量S=S+H      H表示小球反跳的高度变量H=H/2      I表示小球落地的次数变量I=2To10PrivateSubCommand1_Click()DimHasint

8、eger,Sasinteger,IasintegerS=200       H=S/2       For I=2To10           S=S+2*H           H=H/2       Next IPrint "到第十次落地共经过的路程是："; S;"米"endsubPrivateSubCommand1_Click()DimSasinteger,IasintegerS=2