第5章VB控制结构_For.pptVIP

* S=0 S=S+1 S=S+2 …… S=S+100 共101条语句 引例: 求1+2+3+…+100的和？ 5.3 循 环 结 构 重复累加操作 S=0 For I=1 to 100 S=S+I Next I 一般循环结构流程图 (1)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？ 本章讨论VB的两种循环语句： 计数循环语句 For-Next 条件型循环语句 While-Wend Do-Loop 5.3.1 For-Next 循环控制 格式： For 循环变量X=初值e1 To 终值e2 [Step 步长e3] [循环体] [Exit For] Next [循环变量X] (一般用于循环次数已知) 功能：按确定的次数执行循环体。 当e3＞0时, For-Next的流程图 t =0 For I = 2 To 10 Step 2 t=t + I Print t Next I I: 循环变量 2: 初值 10: 终值 2: 步长 循环体 I=I+2 I 10 ? 结束 Y N For 循环变量X=初值e1 To 终值e2 [Step 步长e3] [循环体] [Exit For] Next [循环变量X] N x = e1 x e2 ? 循环体 x = x + e3 Y 开始 结束 讨论For-Next 循环变量必须为数值型。 循环次数 步长 0 初值终值 ( 当=1 时，可省略) 0 初值终值 =0 死循环 For I=1 to 100 S=S+I Next I For I=100 to 1 Step -1 S=S+I Next I For-Next : 必须成对出现，缺一不可。 (最近配对原则) 可以嵌套使用，但循环变量名必须不同，且不可书写交叉 正确的嵌套方式 For I=1 To 9 ????? For J=1 To 9 ??????????? Print I,J? ????? Next J? Next I 下面属于错误的嵌套 For I=1 To 9 ??????? For J=1 To 9 ??????????????? Print I,J??? Next I ?????? Next J 循环的嵌套 Mcs=5 For I=1 To Mcs Mcs=Mcs+1 print I，Mcs Next I 当循环终值是一个变量时，在循环第一次运行时取走变量中的值后，此变量中的值就不再影响循环。 在循环体内,循环变量可多次引用；但建议不要对其赋值，否则将可能会导致死循环。 表示: I=1 To 5 表示: I=1 To 5 若增: I= I-1 ,则出现死循环 例: 编程序计算：sum=1+2+3+4+…+100 Private sub form_click( ) sum=0 For Next End sub 思考题 1.s=1+1/2+1/3+1/4+…+1/100 2.s=2+4+6+8+…+100 3.p=1*2*3*4…100 sum: 加法的初始值为0 应用1 例: 求N!（N为自然数） 如: 3!=3*2*1,而2!=2*1,则3!=3*2!=3*2*1 Private Sub form_click() k = 1 For Next End Sub K: 乘法的初始值为1 应用2 例:改变循环控制变量对循环的影响 应用3 Private Sub Command1_click() J = 0 For I = 1 To 20 Step 2 I = I + 3 J = J + 1 Print 第; J; 次循环I=; I Next I Print 退出循环后I=; I End Sub 正常情况：I=1,3,5,7,9,11,13,15,17,19 现在：I=4,9,14,19 思路： 1.输入一个分数，判断是否有效并进行处理； 2.判断是否合格，计算合格的人数； 3.计算总人数、总分数和平均分。 例:输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。 应用4 Private Sub Command1_Click() 定义变量: Score, Pass