FOR---NEXT循环语句教案主讲: 常庆红
教案
【导入新课】
编写一个程序：打印5行竖排的“*”。

如果是打印10行，100行甚至更多，那应该怎样实现？
在窗体上输出1到10这十个数字。

如果是输出到100甚至更多，那应该怎样实现？
在以上两个例子中,可以看到如果完成这个任务,有很多重复的语句,如何来减化这个程序并达到相同的效果呢?这就要用到一个新的知识,循环结构。

今天，这节课上我们讲解循环结构其中的For-Next循环结构语句。

【新课讲解】
循环结构与循环结构语句
1、For-Next循环结构语句
（1）一般形式：
For 循环变量=初值to 终值Step 步长值
循环语句组
Next 循环变量
［格式说明］①For与Next必须成对出现，Next必须位于For语句之后。

②循环变量必须是数值型，且最好为整型变量。

③当步长值=1时，［Step 步长值］部分可以省略
④Next后面的循环变量可以省略，For、Next后面的循环变量是同一个。

⑤For循环分递增循环和递减循环两种。

递增循环：当初值小于等于终值，步长值>0。

递减循环：当初值大于终值，步长值<0。

［格式举例］ 例
For I= 1 To 5
Print “*” Next I
（2今天先讲For 循环的递增过程，流程图如下：
具体执行过程描述如下： ①将初值赋值给循环变量
②判断循环变量的值是否小于等于终值
若为真（True ），则执行循环语句，而后转到③执行
若为假（False ），则转到④执行
I 为变量
1是初值，5是终值
语句组
③将变量的值加上步长值，而后返回②执行 ④循环结束，顺序执行Next 后面的语句 ［程序举例］
For/next 循环语句
1、请同学们阅读下面程序，写出结果并上机验证，画出流程图，说明程序功能。

for i=1 to 3 step 1print i next i end
执行执行停止执行
<3=3>3234123123执行下一次循
环否？
i 与终值比较
执行NEXT 之
后i 的值
循环开始时i
的值
第几次循环
I =1Prnit i
I=I+1
I >= 3
N Y
[程序执行过程分析]
For/next 循环语句
1）如果把程序中的step 1改成step -1,应该如何修改程序。

2）如果程序中缺少s=1，最终s 的值是多少？
3）如果计算1×2×3×…×N ，应该如何修
改程序。

4)如果计算2×4×6×8×…×1000，应该如何修改程序。

阅读计算1×2×3×4×5的程序，回答以下问题，并上机验证：Dim i As Interger Dim s As Interger S=1
For i=1 To 5 step 1
s=s*I
Next i
2、同学们分成四组讨论下题，然后每组完成一小题，进一步了解For/next 语句的格式。

For/next 循环语句
Private Sub form_click() s=0
for x=1 to 100
s=s+x
next x
print s
End Sub
功能：求1到100的和Private Sub form_click() for i=20 to 10 step –2
print i
next i
End Sub
功能：输入20、28、16、14、12、10六个数
3、阅读下面程序，深化对程序的理解。

【课堂小结】
For-Next循环结构语句
（1）一般形式：
（2）执行过程（递增循环）
【布置作业】
读程序，分析程序执行结果
1、For a=1 to 6 step 3
b=b+a
c=a+b
Print c
Next
程序输出结果_____________________________________
2、For a=1 to 10 step 3
If a>6 then
a=a+1
end if
Next
Print a
程序输出结果_____________________________________ 3、扩展提高题:编程打印下列图形。

*
**
***
****
*****
******。