程序的循环结构

关于程序的循环结构第一页，共十一页，编辑于2023年，星期三掌握For循环语句的基本格式理解For循环语句的执行过程掌握循环变量在执行过程中的变化情况能用For循环结构编写简单的程序第二页，共十一页，编辑于2023年，星期三实例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表示每一个加数，那么这10条语句就可以用一条表示：s=s+x，然后让x的取值分别为1到10这10个自然数，重复执行这条语句，就可以实现该程序的编写。这就要用到循环结构。第三页，共十一页，编辑于2023年，星期三2.4.1用For～Next语句建立循环结构

用循环语句编写：PrivateSubCommand1_Click()Dimsasinteger,xasintegerS=0ForX=1to10step1

S=S+XnextXprintSEndsub循环变量初值终值步长循环体1、For－next循环语句的格式：用于建立已知循环次数的循环结构For

循环变量=初值To

终值Step

步长循环体Next循环变量2、For循环语句的功能：执行For语句：先将初值赋给循环变量，并记住终值和步长（两数间隔）。然后进行判断，是否超出终值？如“超出”终值时，执行Next下一语句，否则执行循环体。执行循环体

执行Next语句：循环变量加步长，返回重新判断

第四页，共十一页，编辑于2023年，星期三2.4.2For循环语句的执行过程第五页，共十一页，编辑于2023年，星期三练一练针对for循环语句的语句格式，设置如下练习，指出下面程序中的错误:1、求1+2+3+4+5的和

s=0fori=1to5step1s=s+inextjprints2、在VB窗体界面上输出1~10这10个自然数forI=1to10printij-i循环变量的名称要相同。

For语句与Next语句必须成对出现，而且仅只步长为1时，才可以省略step1

第六页，共十一页，编辑于2023年，星期三3、求5+4+3+2+1的和s=0forI=5to1s=s+InextIprints4、求7+5+3+1的和：

S=0ForI=7to1Step2S=S+INextIPrintS当初值小于终值时，步长为正数；当初值大于终值时，步长为负数；补充：1、循环变量必须为数值型，

初值、终值：都是数值型，可以是数值表达式。2、循环体：在For语句和Next语句之间的语句序列。可以是一条语句，也可以是多条语句。Step－1－2第七页，共十一页，编辑于2023年，星期三问题2求S=1+2+……+100和值分析

a、用循环产生1～100的自然数

b、每产生一个自然数将其累加到求和变量中

即：S=S+N

c、重复执行S=S+N

即：循环体

d、打印和的值的语句应在程序的末尾

即：Print"S=1+2+……+100=";S

程序：PrivateSubCommand1_Click()

DimNasinteger,Sasinteger

S=0

ForN=1To100

S=S+N

NextN

Print"S=1+2+……+100=";S

EndSub

第八页，共十一页，编辑于2023年，星期三P53问题（2）：

分析：

设i表示楼内的10户居民

d为用电量

m表示应缴电费PrivateSubCommand1_Click()DimIAsInteger,d,mAsSingleForI=1To10d=InputBox("请输入用电")m=0.7*dPrint"电费为:";m