387-2.4 程序的循环结构.pptVIP

2.4 程序的循环结构 掌握For循环语句的基本格式 理解For循环语句的执行过程 掌握循环变量在执行过程中的变化情况 能用For循环结构编写简单的程序 实例1、编程求1+2+3+…+10的和 按照顺序结构编写程序如下： Private Sub Command1_Click() dim s as integer s=0 s=s+1 s=s+2 …… s=s+10 print s end sub 用这种方法能不能编程求出1+2+3……+100的和，1+2+3……+1000的和？ 实际这10条赋值语句在重复着同一个操作，都是将s加一个数和赋给s,如果用变量x表示每一个加数，那么这10条语句就可以用一条表示：s=s+x，然后让x的取值分别为1到10这10个自然数，重复执行这条语句，就可以实现该程序的编写。这就要用到循环结构。 2.4.1 用For～Next语句建立循环结构 用循环语句编写： Private Sub Command1_Click() Dim s as integer, x as integer S=0 For X=1 to 10 step 1 S=S+X next X print S End sub 循环变量 初值 终值 步长 循环体 1、 For －next循环语句的格式： 用于建立已知循环次数的循环结构For 循环变量=初值 To 终值 Step 步长 循环体 Next 循环变量 2、For循环语句的功能： 执行For语句：先将初值赋给循环变量，并记住终值和步长（两数间隔）。然后进行判断，是否超出终值？如“超出”终值时，执行 Next 下一语句，否则执行循环体。 执行循环体? 执行Next语句：循环变量加步长，返回重新判断 2.4.2 For循环语句的执行过程 练一练 针对for循环语句的语句格式，设置如下练习，指出下面程序中的错误: 1、求1+2+3+4+5的和 s=0 for i=1 to 5 step 1 s=s+i next j print s 2、在VB窗体界面上输出1~10这10个自然数 for I=1 to 10 print i j-i 循环变量的名称要相同。 For语句与Next语句必须成对出现，而且仅只步长为1时，才可以省略 step 1 3、求5+4+3+2+1的和 s=0 for I=5 to 1 s=s+I next I print s 4、求7+5+3+1的和： S=0 For I= 7 to 1 Step 2 S=S+I Next I Print S 当初值小于终值时，步长为正数；当初值大于终值时，步长为负数； 补充： 1、循环变量必须为数值型，?初值、终值：都是数值型，可以是数值表达式。 2、循环体：在For语句和Next语句之间的语句序列。可以是一条语句，也可以是多条语句。 Step －1 －2 问题2 求 S=1+2+……+100和值 分析??? ? a、用循环产生 1～100 的自然数 ? b、每产生一个自然数将其累加到求和变量中 ??? 即：S = S + N ? c、重复执行 S = S + N? 即：循环体 ? d、打印和的值的语句应在程序的末尾 ? 即：Print S = 1 + 2 + …… + 1000 = ; S 程序： Private Sub Command1_Click()??? Dim N as integer, S as integer??? S = 0??? For N = 1 To 100????? S = S + N??? ??? Next N?Print S = 1 + 2 + …… + 100 = ; S? End Sub 问题3：一小球从 200 米高度自由下落，每次落地后反弹为原来高度的一半，然后再落下……，求该小球第十次落地时共经过了多少米的路程？ 分析：??? 设 S 表示小球经过的路程变量?? S = S + 2H?????? H 表示小球反跳的高度变量 ?? H = H / 2?????? I 表示小球落地的次数变量 ?? I = 2 To 10 Private Sub Command1_Click() Dim H as integer, S as integer, I as integer S = 200??????? H = S / 2??????? For? I = 2 To 10??????????? S = S + 2*H??????????? H = H /