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

学生回答并思考 新课展开 教师演示修改程序，开扩学生思维。 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; "次"   Loop   Print "恭喜你,猜对了!" 修改程序，统计猜数的次数。（任务二）

扩展思维能力。并复习循环语句。

知识提高 通过完成在“使用猜数程序前添加输入密码验证”的程序修改，进一步了解程序的分块结构。 修改程序，在使用猜数程序前添加输入密码验证。（提高任务三）

拓展知识

小结 教师小结程序设计的一般步骤.课本P56。 学生思考。

形成知识 3.教学评价： 评价标准设计：完成基本任务80%为及格，完成全部任务100%为良好，在扩展上能有所创新为优秀。 课堂评价表设计：学生完成如下实践并填写课堂自评。 实践 内容 知识技能和情感态度评价 技能掌握 情感态度 任务一 学生试图画流程图 任务二 修改程序，使程序在用户猜对时显示共猜对多少次？ 提高任务三 修改程序，在使用猜数程序前添加输入密码验证。添加以下程序段： Do While inputpassword <> "123456" inputpassword = InputBox("请输入密码", "输入密码") Loop 4、教学资源：教室网络。预先编好的小程序。 六、教学反思：    本节是整章知识的复习和梳理，教师在教学过程中必须饱含激情，将教学情景设置层层推进，提高学生的学习成功感，并引导学生把学过的知识融会贯通。 文 章
www.quxue6.com

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