循环的嵌套教案

课题：循环的嵌套

教学目标:

1、理解循环嵌套的概念

2、掌握循环嵌套的语法使用规那么

教学重点:

掌握循环嵌套的语法使用规那么

教学过程：

一、 引入

问题：编写程序打印一个如下所示的图形.

* * * * *

* * * * *

* * * * *

* * * * *

.专心.

.

* * * * *

答：五行PRINT语句

问：如果只允许出现一行PRINT 语句，怎么办？

答：用FOR/NEXT循环，让循环执行5次

问：如果程序中只允许出现一个“*〞，怎么办？

讲：在这个图形中我们发现,从上到下存在一个循环,即第一行打到第五行;另外对于一行来讲,从左到右又存在一个循环,即打印几个。

二、授新课

计算机在处理这类问题的时候便引入了两重循环的嵌套结构,利用循环嵌套结构便可以很简单的处理这类事情,让计算机去重复执行。

例：Private Sub Command1_Click()

Cls

For i = 1 To 4

For j = 1 To 4

.专心.

.

Print \"*\";

Next j

Print

Next i

End Sub

讲解：外层循环控制“*〞的行数，内层循环控制“*〞的个数，外循环的循环控制变量每改变一次，内层循环就要完整地执行一遍，print “*〞后接“；〞用来控制“*〞在一行上，next j 与next I之间的print 空打语句起换行作用。

注意：内外循环不得交叉

三、 课堂练习

写出以下程序的运行结果

Private Sub Command2_Click()

Cls

For i = 1 To 4

.专心.

.

For j = 1 To i

Print \"*\";

Next j

Print

Next i

End Sub

Private Sub Command3_Click()

Cls

For i = 4 To 1 Step -1

For j = 1 To i

Print \"*\";

Next j

Print

.专心.

.

Next i

End Sub

Private Sub Command4_Click()

Cls

For i = 1 To 4

For j = 1 To 5 - i

Print \"*\";

Next j

Print

Next i

End Sub

Private Sub Command5_Click()

Cls

.专心.

.

For i = 1 To 4

For j = 1 To 2 * i

Print \"*\";

Next j

Print

Next i

End Sub

Private Sub Command6_Click()

Cls

For i = 1 To 4

Print Tab(10 - i);

For j = 1 To i

Print \"*\";

.专心.

.

Next j

Print

Next i

End Sub

讲解tab函数的作用

四、 上机实习

任务一：

编写程序求1-2+3-4+……+99-100的值

任务二：

编写程序，使程序运行时能输出如下的图形。

思考：编写程序，使程序运行时能输出如下的图形。

.专心.

.

五、小结

.专心.