Visual Basic 程序设计教程第7章 循环结构程序设计.pptVIP

7.3 For-Next 循环结构语句 初值、终值和步长值，都是指从步骤①计算得到的，即使之后初值、终值和步长表达式中所包含的变量在循环体内被改变，也不会影响循环次数，即不会改变循环的初值、终值和步长值。仅当循环变量在循环体内被重新赋值，则会影响和改变循环次数 For I=2 to 18 step 3 c=c+1 Next I 上述For的循环次数=Int((18-2)/3)+1=6 第几次循环 I 0 2 1 5 2 8 3 11 4 14 5 17 6 20 7.3 For-Next 循环结构语句 初值、终值和步长值，都是指从步骤①计算得到的，即使之后初值、终值和步长表达式中所包含的变量在循环体内被改变，也不会影响循环次数，即不会改变循环的初值、终值和步长值。仅当循环变量在循环体内被重新赋值，则会影响和改变循环次数 c=18 For I=2 to c step 3 c=c+1 Next I 上述代码段中虽然变量c在循环体内改变，但根据For循环执行流程，循环控制变量I的终值依旧为18，并未改变，因此循环次数=6 第几次循环 c I 0 2 1 5 2 8 3 11 4 14 5 17 6 20 18 19 20 21 22 23 24 For I=2 to 18 step 3 7.3 For-Next 循环结构语句 初值、终值和步长值，都是指从步骤①计算得到的，即使之后初值、终值和步长表达式中所包含的变量在循环体内被改变，也不会影响循环次数，即不会改变循环的初值、终值和步长值。仅当循环变量在循环体内被重新赋值，则会影响和改变循环次数 c=18 For I=2 to c step 3 c=c+1 I=I+2 Next I 上面循环体中，循环控制变量I被改变，所以此时会影响循环次数，循环次数=4 第几次循环 c I 0 2 1 4 2 9 3 14 4 19 18 19 20 21 22 7 12 17 22 For I=2 to 18 step 3 例题7-4 For循环实现：单击窗体，要求在窗体上显示6行星号 分析： 循环体：Print ****************，循环变量I表示输出行，从1变化到6，即循环变量I的初值为1，终值为6，步长为1，循环次数为6 Private Sub Form_Click() Dim I As Integer 定义一个循环变量I来控制输出的行数 当输出行数没有超过6行，就反复执行下面的语句 For I = 1 To 6 步长为1，可省略Step 1 Print **************** Next I 完成I根据步长完成递增，即I = I + 1，并返回到For行 End Sub 对比For循环和Do-Loop循环，很明显For循环更适合、更方便的实现类似例题7-4的能预知循环次数(重复操作次数)的问题 例题7-5 求1+2+3…+n 分析： 求多项数据之和，首先得设置一个累加器sum，存放累加结果。根据一般人们求和的步骤，多个数据累加的过程如下： sum0=0 sum1=sum0+1 sum2=sum1+2 sum3=sum2+3 ……………… sumn=sumn-1 +n 归纳： 求多项数据之和，整个累加过程一直在重复执行sum = sum + i，一共重复n次，其中累加项i的变化规律为：i =i + 1，i的初值为1，终值为n，即当i的值超过n结束累加操作 例题7-5 求1+2+3…+n 程序代码设计： 循环体是sum=sum+i，而累加项i的变化恰好与累加次数一致，所以可以利用累加项i来控制循环次数，即将i兼用做循环变量，初值为1，终值为n，步长为1 Private Sub Form_Click() Dim sum As Integer, i As Integer n = Val(InputBox(请输入累加的终值n：)) sum = 0 累加器清零 For i = 1 To n sum = sum + i 累加 Next i Print 1+...+; n; =; sum End Sub 求1~n之间所有的偶数之和 Private Sub Form_Click() Dim sum As Integer, i As Integer n = Val(InputBox(请输入累加的终值n：)) sum = 0 累加器清零 For i = 1 To n