第1节《程序与程序设计》教学设计

新课转折 *(以下部分为选学内容，供选学用） 引导学生体验程序，引出Do While/ Loop的作用。 Private Sub Form_Click() guess = InputBox("请输入一个整数密码：", "密码") password = "123456" If guess = password Then Print "yes!your are win" End If If guess <> password Then Print "again please!" End If End Sub 与 Private SubForm_Click() Do While inputpassword <> "123456" inputpassword = InputBox(" 请输入密码，", " 输入密码") Loop Print "输入密码正确!" End Sub 学生体验比较程序的功能，并体会Do While/ Loop的含义。（任务七）

新课转折与知识渗透

新课讲授 解释Do While/ Loop意义：当〈条件〉成立，执行循环体，否则退出循环，执行loop下一个语句。 学生观察并思考

知识形成

学生熟练 教师通过引导学生读程序，进一步学习知识。 读下列程序并写出结果：（任务八） P51,1(3)(4)

知识熟练

提高练习 引导学生对所学知识进行整理归纳。比较do while 与for/next 。 修改程序用两种循环求和（任务九）2+4+8+……+100=？

知识整理与提高

课堂小结 教师对循环语句的两种形式进行比较，并形成知识。说明：若知道循环次数，一般使用for/next循环；若不知道循环次数，用do while循环。 学生思考

知识形成   3.教学评价 评价标准设计：完成基本任务80%为及格，完成全部任务100%为良好，在扩展上能有所创新为优秀。 课堂评价表设计：学生完成如下实践并填写课堂自评。 实践 内容 知识技能和情感态度评价 技能掌握 情感态度 任务一 思考修改程序：如何画圆心在点（2500，2500）半径为200cm 的圆？ Private Sub Form_Click() r = 200 Circle (2500, 2500), r，RGB(255,60,60) End Sub 任务二 修改程序，画圆心在点（2500，2500）半径从100～1000的10个同心圆。 任务三 分组体验步长，初值，终值以及循环体的执行。 分组体验下列程序： （一）程序一 Private Sub Form_Click() R=1000 For i=100 to 1000 step 50   r  = r+500 Circle (2500,2500),r Next  i End sub （二）程序二 Private Sub Form_Click() For i=1000 to 100 step -50  r  = r+500 Circle (2500,2500),r Next  i End sub （三）程序三 Private Sub Form_Click() For  i=1 to 10 step 0.5   r  = r+1000 Circle (2500,2500),r Next  i End sub （四）程序四 Private Sub Form_Click() For i=1 to 20   r  = r+1000 Circle (2500,2500),r Next  i 提高任务四 修改程序，画二十个半径相同，y轴固定为1500，半径为1000的20个圆 提高任务五 修改程序求1+3+….+99= ？的值 提高任务六 补充并调试程序P51,3,4 任务七 体验密码程序（一）并比较 Private SubForm_Click() Do While inputpassword <> "123456" inputpassword = InputBox(" 请输入密码，", " 输入密码") Loop Print "输入密码正确!" End Sub 任务八 写出程序的结果：P51,1(3)(4) 提高任务九 修改程序，用两种循环语句求2+4+8+…..+100=？ 4、教学资源：网络教室，小程序。 六、教学反思：本节书是整章书最难解释的部分，即使部分学生暂时理解了，也都是模仿。很多学生很难建立循环语句执行的物理模型。

第7节  《程序设计的基本方法》教学设计 一、学习者分析：  通过整章的学习，学生对程序设计有一定的了解，对程序的结构种类，算法流程都熟悉了，本节通过实例来学习程序设计的一般步骤。 二、教材内容分析 1、本节的主要内容及在本章中的地位：知识的小结整理提升。 2、教学重点、难点：  程序设计的算法。 重点：程序设计的步骤 难点：算法的实现 3、课时安排：一课时 三、教学目标 1.知识与技能 （1）了解程序设计三种结构，并能画出它们的流程图。 （2）初步了解程序设计的基本步骤； （3）初步学会把实际问题转化为计算机解决的算法，并能画出流程图。 2.过程与方法 通过教学实例的展示和演练，让学生了解程序设计的基本方法。 3.情感态度价值观 培养学生的逻辑能力和思考能力。 四、教学理念和方法     通过教学实例的展示和演练，以教师主导，学生体验思考，分层设置教学难度等方法来完成教学内容。 五、教学过程设计 1、教学内容的组织与呈现方式： 以实例分析深入展开、小结归纳，将程序设计步骤与基本方法进行呈现。 2、教学过程：

教学环节

教师教学

学生活动

设计意图

课堂引入 教师通过做一个猜数的游戏，猜得对有奖。（P56猜数程序代码），引起学生的学习兴趣。 学生游戏 引起学生兴趣

新课讲授 教师分析游戏程序。提出问题一：程序用到什么语句？整个程序是什么结构？ 学生回答（用到解释，赋值，输出，判断，循环等语句。综合结构。） 复习以前学过的知识，指出知识综合运用就可以解决实际问题。 提出问题二： 能否画出流程图？

学生试图画流程图（任务一）

复习程序编写的三种结构，并引导学生归纳程序编写的一般步骤。 教师分析流程图，并复习程序的几种结构。 说明：事实上，任何计算机程序都可以由这三种结构组合而成，我们主要灵活运用好这些基本结构，就可以编写各种各样的程序，解决许多实际问题。

学生思考并分析程序的流程图。 提出问题三：如果要你编写这个程序你怎样做，第一做什么？第二做什么？ 教师归纳程序设计的一般步骤。

学生回答并思考 新课展开 教师演示修改程序，开扩学生思维。 Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) n=0 Do While guess <> x guess = InputBox("请输入你猜的数字（0~100）", "猜数") n=n+1 If guess > x Then Print guess; "太大了!" Else If guess < x Then Print guess; "太小了!" End If   End If   Print "你已经猜了"; n; "次"  

上一页  [1] [2] [3] [4] [5] [6] [7] [8]  下一页