教学环节

教师活动

学生活动

情意

导入

    从袁隆平的超级水稻研究的故事入手，又到“输出100以内的所有偶数的算术平方根”的的问题出发，激发学生学习的兴趣和热情，拉开了本节教学的序幕。

学生边阅读边倾听。提问：有同学试图用以下方法解决：

Private  Sub  Command_Click( )

Print    Sqr （2）

Print    Sqr （4）

Print    Sqr （6）

……

Print    Sqr（100）

End  Sub

由此老师引入今天的循环问题：即问题中包含有重复执行的处理。

新课讲解

1．通过组织学生探究“输出100以内的所有偶数的算术平方根”的问题、设计算法、编写程序、调试程序等用计算机解决问题的过程：

Private  Sub  Command_Click( )

For I=2 To 100  Step  2

        Print  Sqr (I)

Next  I

End  Sub

让学生感到用VB提供的循环结构语句，能很简便地解决循环问题

2．通过师生共同分析“输出100以内的所有偶数的算术平方根”问题的程序，归纳总结VB语言的FOR循环语句的格式、功能、执行过程，以及书写的注意事项，归纳总结VB语言的for循环特点。

For   循环变量=初值  To  终值  Step  步长值

          语句组

Next 循环变量

3．老师提出上机实践问题：分别求甲、乙、丙三位同学的语文、数学、英语三科的平均分。要求学生展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

4、要求学生课堂练习:指出所列程序中的错误，加强知识学习和把握。

5、上机练习：（1）P53实践2

（2）求1×3×5×……×19的值。

6、由问题“已知m个学生进行n个科目的考试，请计算每个同学的平均分。”引出循环嵌套的问题，帮助学生分析学会嵌套的技巧与方法：

•          Private Sub Command1_Click()

•          Dim m As Integer, n As Integer, i As Integer

•          Dim fen As Single, sum As Single, average As Single

•          m = InputBox("请输入学生人数:")

•          n = InputBox("考试科目数:")

•          For i = 1 To m

•          sum = 0

•             For j = 1 To n

•                fen = Val(InputBox("请输入第" + Str$(i) + "个同学第" + Str$(j) + "科"))

•                sum = sum + fen

•             Next j

•             average = sum / n

•             Print "第"; i; "同学平均分:"; average

•          Next i

•          End Sub

通过对以上程序的分析和程序执行过程，使学生能真领会和把握这一编程技巧。

1．学生对问题展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

2．学生在教师的指导下，阅读、分析、归纳，完成实践任务。

3．学生对老师所提问题（分别求甲、乙、丙三位同学的语文、数学、英语三科的平均分）展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

4．学生在教师的指导下，阅读、分析、归纳，完成实践任务。

5、要求学生完成上机练习，老师巡视帮助学生完成任务。

6、要求学生上机练习P56的实践（1）、

（2），老师巡视帮助学生完成任务。

拓展

由图形的输出问题加深学生对循环嵌套的问题的把握，帮助学生分析学会嵌套的技巧与方法：

要求学生求的图形。老师巡视帮助学生完成任务。

小结

    VB语言的FOR循环语句、格式、功能和执行过程，以及for 循环嵌套。

练习

    教师在布置课本的练习：P59（1）、（2），指导学生根据本节所学的知识，分析问题，设计算法，编程求解问题。   

教学环节

教师活动

学生活动

情意

导入

    从“陈婷植树”的故事入手，激发学生学习的兴趣和热情，拉开了本节教学的序幕。

学生边阅读边倾听。

新课讲解

1．通过组织学生探究“陈婷植树”的问题、设计算法、编写程序、调试程序等用计算机解决问题的过程：

n        Private Sub Command1_Click()

n         Dim Age   As Integer, Tree   As Integer

n            Age = 17

n            Tree = 3

n             Do

n               Age = Age + 1

n               Tree = Tree + Age - 14

n            Loop Until Tree >= 100

n            Print "到"; Age; "岁时种到"; Tree; "棵树！"

n        End Sub

2．通过师生共同分析“陈婷植树”问题的程序，归纳总结VB语言的DO循环语句的格式、功能、执行过程，以及书写的注意事项，归纳总结VB语言的DO循环特点。

3．老师提出思考题:已知s=1×3×5×…×N，找出一个最大整数N，使得S<50000。要求学生展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

4、上机练习：P54实践（1）、（2）

5、对几种DO循环的比较分析：归纳总结出各自不同的特点的把握要素，使同学们能运用自如。

1．学生对问题展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

2．学生在教师的指导下，阅读、分析、归纳，完成实践任务。

3．学生对老师所提问题展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。

4．学生在教师的指导下，阅读、分析、归纳，完成实践任务。

5、要求学生上机练习共同探讨P58的交流，得出使用DO循环的技巧和心得。

拓展

设立一些由人力解决较困难的问题，要求学生运用所学编程知识去解决，比如：判断一个大数是否为素数等问题。

要求学生能设计出算法及编写出程序。

小结

    VB语言的DO循环语句、格式、功能和执行过程，以及几种不同DO 循环的比较。

练习

    教师在布置课本的练习：P59（5），指导学生根据本节所学的知识，分析问题，设计算法，编程求解问题。