课件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