浙教版高中《算法与程序设计》——VB循环语句for复习课件

do while 与for
dim s as integer dim i as integer s=0 i=10 do while i<=100
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if i=i+1 loop label1.caption=str(s)
dim s as integer dim i as integer s=0 for i=10 to 100 step 1
do while 与for
dim s as integer dim i as integer s=0 i=100 do while i>0
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if i=i-2 loop label1.caption=str(s)
dim s as integer dim i as integer s=0 for i=100 to1 step -2
能用for语句实现么？ 怎么写？
能用for语句实现么？
能用for语句实现么？
i=1:j=n:f lag=false do while i<=j and not flag
i= j= flag= loop
能用for语句实现么？
for语法
for 循环变量= 初值 to 终值 step 步长
’步长根据初值和终值大小，可正可负
Next 循环变量
’该变量名称必须与for后名称一
特别强调： ※ 循环体的执行次数为 ( 终值-初值) \ 步长+1 ； ※ 循环变量最终的值一定不会是for 语句中的终值
※ do while 和 for可以中途退出，用exit do 和 exit for
循环体 句
’循环体中还可有IF\DO WHILE\FOR等语
Next 循环变量
’该变量名称必须与for后名称一
特别强调： ※ 循环体的执行次数为 ( 终值-初值) \ 步长+1 ； ※ 循环变量最终的值一定不会是for 语句中的终值
※ do while 和 for可以中途退出，用exit do 和 exit for
else s=s+i^2
end if next i label1.caption=str(s)
不会进入循环 体，判断之后
直接结束
do while 与for
1.所有的循环结构都可以用do while 语句来实现。
2.只有一个循环变量，且循环体执行次数明显可确定是for语句。
do while 与for
※循环变量赋初值 ※合理的循环条件 ※循环变量的处理
语句可以多条，也 可以一条，可以赋 值，也可以选择， 甚至可以是循环
循环条件执行次数？ 循环变量的终值？
循环变量赋初值 do while 合理的循环条件
循环变量的处理 语句 loop
do while 与for
dim s as integer dim as integer s=0 i=1 do while i<=100
else s=s+i^2
end if i=i+1 loop label1.caption=str(s)
dim s as integer dim i as integer s=0 for i=1 to 100 step 1
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if next i label1.caption=str(s)
for语法
for语法
for应用
for总结
1.所有的循环结构都可以用do while 语句来实现。
2.只有一个循环变量，且循环体执行次数明显可确定是for语句。
for 循环变量= 初值 to 终值 step 步长
’步长根据初值和终值大小，可正可负
循环体 句
’循环体中还可有IF\DO WHILE\FOR等语
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if i=i+1 loop label1.caption=str(s)
do while 与for
dim s as integer dim i as integer s=0 i=1 do while i<=100
if i mod 2=0 then s=s-i^2
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if next i label1.caption=str(s)
do while 与for
dim s as integer dim i as integer s=0 i=1 do while i<100
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if next i label1.caption=str(s)
不会进入循环 体，判断之后
直接结束
do while 与for
dim s as integer dim i as integer s=0 for i=1 to 100 step -2
if i mod 2=0 then s=s-i^2
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if next i label1.caption=str(s)
do while 与for
dim s as integer dim i as integer s=0 for i=100 to 1 step 2
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if i=i+1 loop label1.caption=str(s)
dim s as integer dim i as integer s=0 for i=1 to 99 step 1
if i mod 2=0 then s=s-i^2
else s=s+i^2
end if next i label1.caption=str(s)