3．老师提出思考题:已知s=1×3×5×…×N，找4．学生在教师的指导下，阅读、分析、出一个最大整数N，使得S<50000。要求学生展归纳，完成实践任务。 开分析问题、设计算法、编写程序、调试程序等5、要求学生上机练习共同探讨P58的用计算机解决问题的探究活动。 交流，得出使用DO循环的技巧和心得。 4、上机练习：P54实践（1）、（2） 5、对几种DO循环的比较分析：归纳总结出各自不同的特点的把握要素，使同学们能运用自如。 拓展 小结 练习 设立一些由人力解决较困难的问题，要求学生运用所学编程知识去解决，比如：判断一个大数是否为素数等问题。 要求学生能设计出算法及编写出程序。 VB语言的DO循环语句、格式、功能和执行过程，以及几种不同DO 循环的比较。 教师在布置课本的练习：P59（5），指导学生根据本节所学的知识，分析问题，设计算法，编程求解问题。 五、 课外拓展
1、 相关资源
东莞中学信息技术网：http://itedu.dgzx.net/Article_Class.ASP?ClassID=32 普通高中技术课程网：http://blog.cersp.com/6002/category/4662.aspx VB程序设计网：
http://www.hutc.zj.cn/xxgcxy/vb/dagang.asp
2-5节 模块化程序设计
一、 教学目标 认知：
（1）理解自顶而下、逐步求精的程序设计方法； （2）掌握VB语言的过程与函数的定义和调用方法。 （3）理解模块化程序设计的基本思想。 技能：
（1）学会使用VB语言的过程与函数来编写程序
（2）学会使用模块化程序设计思想设计程序，解决实际问题。 （3）初步掌握程序调试运行的方法。 情感：
（1）经历用计算机解决问题的过程，体验成功的快乐。
（2）在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。 二、 重点难点 教学重点：
让学生学会使用VB语言的过程与函数的定义和调用方法。 教学难点：
理解模块化程序设计的基本思想，并运用于程序设计中。 三、教学环境 1、教材分析
在社会活动中，人们对于一些大型的、复杂的问题进行求解，常常会把它们分解为更小、更简单和更容易处理的子问题。当这些子问题被求解以后，原来的问题就可以随着这些子问题的解决而迎刃而解。这种解决问题的方法应用到程序设计中，就是模块化程序设计思想。 2、 预备知识：学生已掌握了程序设计基础的几种基本结构。
3、 硬件要求：建议本节课在多媒体电脑教室中完成，最好有广播教学系统或投影仪，为拓展学习，学生机应允许上互联网。
4、 所需软件：学生机要安装VB6.0或以上版本。 5、 所需课时：2课时（90分钟） 四、 教学过程 教学环节 情意 导入 教师活动 学生活动 从歌德巴赫猜想的故事入手， 验证歌德巴赫猜想，激发学生学习的兴趣和热情，通过先看P61的程序2-9A观查此程序有没有功能重复的地方，如何才能省略书写……并且反复调用同一功能的程序代码呢？拉开本节教学的序幕。 1．通过组织学生探究“验证歌德巴赫猜想”问题，引导学生经历分析问题、设计算法、编写程序、调试程序等用计算机解决问题的过程；归纳总结自顶而下、逐步求精的程序设计方法； 2．通过师生共同分析“验证歌德巴赫猜想”的另一个程序，归纳总结VB语言的过程与函数的定义和调用方法。 3．通过师生共同分析“求五边形的面积”程序，归纳总结模块化程序设计的基本思想。 4、要求学生求三个数的平均数。（用自定义函数及自定义子过程） 学生边阅读边倾听。 新课 讲解 1．学生对“验证歌德巴赫猜想”问题展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。 2．学生在教师的指导下，阅读、分析、归纳，完成实践任务。 3．学生对“求五边形的面积”问题展开分析问题、设计算法、编写程序、调试程序等用计算机解决问题的探究活动。 4．学生在教师的指导下，阅读、分析、归纳，完成实践任务。 拓展 1、求园的面积,已知半径为1、3、5、7、9、11。（调用函数方法） 2、调用子程序，使第一行打印20个*，第二行打印10个*，第三行打印20个*。 引导学生利用函数及子程序解决较复杂问题，体会利用函数及子程序的好处。 1．自顶而下、逐步求精的程序设计方法； 2．VB语言的过程与函数的定义和调用方法； 3．模块化程序设计的基本思想。 指导学生根据本节所学的知识，完成求任意四边形的面积问题，要求他们能分析问题，设计算法，编程求解问题。 小结 练习 三、 课外拓展
1、 相关资源
东莞中学信息技术网：http://itedu.dgzx.net/Article_Class.ASP?ClassID=32 普通高中技术课程网：http://blog.cersp.com/6002/category/4662.aspx VB程序设计网：
http://www.hutc.zj.cn/xxgcxy/vb/dagang.asp