2.4的循环结构解说.ppt

问题3：求：t=10! DIM t AS LONG,I as integer t=1 FOR i=1 TO 10 t=t*i NEXT i PRINT “T=10!=“;t END 方法1分析：设初值为0，终值为100，步长为3. 程序： dim I as integer,s as integer s=0 FOR i=0 TO 100 STEP 3 s=s+1 NEXT i print s 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循环语句的执行过程 问题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 P52实践 2. A=1 第一次 A100 ？ S=S+A=1 Next a: A=A+步长=2 第二次 A100 ? S=S+A=1+2 Next a: A=A+步长=3 ….. A=A+步长=100 第100次 A100 ? S=S+A=1+2+3…+100 Netx a:A=A+步长=101 第101次 A100? 退出循环 分析：t=1*2*3*4*……10这是一个累乘.初值： t=1 循环初值: i=1, 循环终值: i-10 循环体： t=t*i 练一练 针对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 当初值小于终值时，步长为正数；当初值大于终