《循环结构》教学设计.

《循环结构》教学设计

盐城中学高士娟

【知识目标】掌握和理解循环结构中的for循环；学会使用循环结构解决问题。【技能目标】掌握解决问题的一般思路；培养学生用程序解决实际问题的技能；

养成良好的编程习惯。

【情感目标】培养学生养成严谨的学习态度和团结协作的精神。

【教学重点】for循环结构的语句格式；循环结构的理解。

【教学难点】使用循环结构解决问题。

【教学方法】采用案例模拟的方式，给学生不同的模板，让学生通过模仿解决问题，达到教学效果。

【教学过程】

一、导入新课

上课！

陈婷有一个E-MAIL邮箱的密码是一个5位数。但因为有一段时间没有打开这个邮箱了，陈婷把这个密码给忘了。不过陈婷自己是8月1日出生，而她妈妈的生日则是9月1日，爸爸的生日是10月4日，她特别喜欢把同时是81、91和104的倍数用作密码。你能设计一个vb程序帮她找回这个密码吗？

你会用什么方法帮她找回密码呢？用我们学过的知识行不行？今天这节课我们就来解决这个问题。

设计意图：从问题引入，激发学生的学习兴趣，促进学生的自主探究与合作交流，让学生在一个个典型的问题驱动下展开教学活动，引导学生由易到难、循序渐进地完成一系列任务，从而得到清晰的思路、方法和知识的脉络。在完成任务的过程中，培养分析问题、解决问题的能力。这也是本节课的关键所在。

二、新课讲授

1．循环结构

首先，请同学们看一个熟悉的式子：s=1+2+3+……+10。结果是多少？55。那么，1~20，1~30，……1~100之间自然数的和呢？似乎大家都能很快的算出来。我们再来看一个式子P=1*2*3*4*5*……*10，结果是多少？有没有同学可以很快的告诉我？算不出来，我们发现这个式子是重复地进行乘的操作，乘的数是连续的自然数，我们没那么快算出来，计算机就快多了。在这里，重复进行的操作是p=p*i，i不断加1。那s=1+2+3+……+100中，重复进行的操作是——s=s+i，这是一个累加的过程。按照一定条件，反复执行某些步骤，这就是循环的概念。好，我们先来看看累加求和的流程图。

设计意图：通过学生熟悉的例子引入，学生容易接受，也容易进行知识的迁移，降低学生的难度，能让学生水到渠成的掌握知识。学生适时归纳，总结规律，从中抽象出循环结构这样一类逻辑结构。通过对流程图的解读，使得学生体会流

程图对于程序理解的重要性。

有了流程图，我们就可以写出累加求和的程序代码。

【程序代码】

Private Sub Form_Click()

Dim i As Integer

Dim s As Integer

s = 0

For i = 1 To 100

s = s + i ' 循环体

Next i

Print "s="; s

End Sub

设计意图：给出能运行出结果的程序，让学生有自己编程的迫切希望。有了内在动力，学生会自行进行模仿。

对照流程图，解释程序代码。下面，我们就请同学们试试看，能不能模仿form_click里的累加求和代码，补充一些语句完成任务一的几个程序呢？

【学生操作】完成任务一

设计意图：学生刚刚接触循环结构，对于循环的格式不熟悉，所以任务一的作用是让学生模仿累加求和的程序，对于循环结构有个初步的认识。任务一的设计是基于学生对已有代码认识的基础上，补充关键代码，从而解决问题。关键代码的修改使得学生通过循环变量增量、循环变量的初终值以及循环体的变化巩固for循环各部分的理解。也正是通过这样的模仿，学生能够初步掌握循环结构的编程。这些代码为学生建立了开始编程的起点，并使他们进一步了解解决问题的方式。因为任务一，只是学生对于程序的模仿和修改，大多数同学都能依葫芦画瓢的完成，所以学生出现的问题不多。

（1）Private Sub Command1_Click()

'计算s=1+1/2+1/3+1/4+……+1/100

Dim i As Integer

Dim s As Integer

s = 0

For i = 1 To 100

s =

Next i

End Sub

设计意图：学生只需填写循环体，通过模仿累加求和的程序，自行寻找规律。

（2）Private Sub Command2_Click()

'计算s=1-2+3-4+5-……-100

Dim i As Integer

Dim s As Integer

s = 0

For i = 1 To 100

If i Mod 2 = 1 Then

s =

Else

s=

End If

Next i

Print s

End Sub

设计意图：给出数的奇偶性判断，降低难度，让学生的思考重点放在循环体上。

（3）Private Sub Command3_Click()

'计算s=1*2+2*3+……+10*(10+1)

Dim i As Integer

Dim s As Integer

s =

For i= To

s =

Next i

Print

End Sub

设计意图：因为问题涉及乘和加，所以s的初始值是0还是1，需要学生思考；循环变量的初终值，需要学生确定；循环体也需要学生确定，相对前面两题，增加了难度。

（4）Private Sub Command4_Click()

'计算s=1*2*3*4*5

Dim i As Integer

Dim p As

p =

For i= To