for…next 循环程序结构 课件

课件9张PPT。Visual Basic for…next 循环程序结构思考 生活中与循环有关的例子？水循环、大气循环、时钟转动、体育课围着操场跑十圈等。继续思考跑步时有些学生可能想偷懒可能会少跑几圈，老师会怎么做？安排一位同学给这位同学记圈 For …Next 循环语句格式: For <计数器>=<初值> to <终值> [step <步长>] <语句块> Next <计数器> 注: <计数器>必须是数值型变量 步长可正可负，也可以带小数，缺省值为1 当计数器达到或超过终值时，终止循环。 For…Next循环的流程图计数超过终值？计数器加上步长 （Next语句）语句块(循环体)Yes如果在循环体中遇到 Exit For 语句，则强行中止循环For <计数器>=<初值> to <终值> [step <步长>] <语句块> Next <计数器>例：跑圈计数程序，学生每跑一圈记一次数 程序说明： 第一行输出1，第二行输出2……第十行输出10源程序 DIM A AS INTEGER FOR A=1 TO 10 STEP 1 PRINT A NEXT A 思考1、如果输出的数为10、9、8、7、6、5、4、3、2、1怎么办？ 2、如果输出的数为10、8、6、4、2怎么办？ 3、如果输出的数为 1、3、5、7、9怎么办？任务一：求100以内所有自然数之和源程序如下： S=0 ‘ S用于保存累计值，初值为0 For K = 1 to 100 step 1 ‘K－计数器，步长1 S = S + K ‘K=1，2，3，…，100 Next K ‘K+1（步长），再执行循环语句 ‘直到K>=100（终值） Print “100以内所有自然数数之和为“; S ‘输出结果即计算：S=1+2+3+4+……+100任务二：求100以内所有奇数之和S=0 ‘ S用于保存累计值，初值为0 For K = 1 to 100 step 2 ‘K－计数器，步长2 S = S + K ‘K=1，3，5，…，99 Next K ‘K+2（步长），再执行循环语句 ‘直到K>=100（终值） Print “100以内所有奇数之和为“; S ‘输出结果计算：S=1+3+5+7+……+99