4.1.4 剖析编制计算机程序解决问题的过程ppt课件课堂实录

4.1.4 剖析编制计算机程序解决问题的过程---教学设计

【教材分析】

本节是广东教育出版社的《信息技术基础》（必修）第四章第一节第四小节中的内容，一个课时。教学内容是通过编写VB程序解决“幼儿算术自测系统”问题，剖析编制计算机程序解决问题的过程。

【学情分析】

高一数学课涉及到相关的逻辑运算和算法分析，学生对计算机编程并不陌生。VB环境上节课已作基本介绍，图形界面学生容易掌握。通过案例教学，在探究学习中使学生体验编制计算机程序解决问题的过程。为高二选修《算法与程序设计》打下基础。

【教学目标】

1、知识与技能：

体验计算机编程，用编程解决实际问题。

2、过程与方法：

通过早期幼儿智力开发问题引入，激发学生解决问题的兴趣，介绍程序流程，学生运行程序，体验和掌握编程解决问题的方法。

3、情感态度与价值观：

在程序流程讲解和学生自主学习探究中，培养学生的逻辑思维能力和动手能力；在作品的相互评价中，培养学生的合作意识。学生能

了解幼儿智力早期开发的重要性，增强学生的责任感和义务感以及关心帮助小弟弟小妹妹潜力开发的爱国主义情感。

【教学策略设计】

为了突破教学重难点，本课教学设计是以“强化实践”为本，实践过程中，自主学习，自由体验，让学生自我构建知识体系。教师力求引导学生主动探索，培养学生的创新意识。

【教学重点】

1、编写和运行VB程序解决实际问题(幼儿算术自测系统)；

2、思考并剖析编制计算机程序解决问题的过程。

【教学难点】

编写和运行幼儿算术自测系统的VB程序

【教学准备】

机房、极域网络管理系统、VB软件。

【教学方法】

案例学习法，诱导思考法，任务驱动法。

【教学过程】

教学过程

教师活动

学生活动

设计意图

引入：幼儿早期智力开发问题

考虑到幼儿的心理和生理特点：持续做某一件事情时间不宜太长，所以，我问题引入

激发兴趣

提出目标

(5分钟)

们只设计100以内的加法运算10个小讨论怎样才通过讨论幼儿早期智力开发问题，引出课题，激发学生学习的兴趣

题，要求系统能随机自动出题，并能自能让幼儿百动阅卷和打分。

做不厌？

提问：

怎样用VB编程工具来解决这个

问题？

问题中已知什么，求什么，明确已知和未知之间的关系。

点明主题：编程解决问题

结合学科专题学习网站，回答问题

任务提出

围绕主题

进行创作

（ 30分钟）

系统”的VB程序；

学生自主学习，并完成自1、讲解程序流程，给出“幼儿算术自测主测试。

然后跟着老师一起完成“幼儿算术自测系统”程序设计。

鼓励学生自主探究或小组协作来完成任务

自主探究

相互交流协作

师生交流反馈

上机操作

vb 程序代码如下：

'定义全局变量

Private a(10) As Integer, b(10) As Integer, c(10) As Integer 'a、b两数组分别存储两加数，c数组存储a、b两数的和

Private ws As Integer '多少以内的加法，比如100以内的加法，那么WS=100 Private dtsj As Integer '答题时间

Private s As Integer '倒计时变量

'=========================

'程序启动时自动随机生成10道试题

JSQ.Enabled = False '计时器禁用

JSQ.Interval = 1000 '设定计时器步长1秒

JG.Caption = "" '分值标签清空

JS.Enabled = False '结束按钮禁用

ws = 100 '设置100以内的加法

dtsj = Val(SJ.Text) * 60 '设置答题时间秒

XS.Caption = dtsj Dim i As Integer '定义循环变量

Dim x As String '定义临时加数变量

Dim y As String '定义临时加数变量

Dim z As String '定义临时答案变量

i = 0 '循环变量赋值初值0 D(0).TabIndex = 0 '设置TAB键的序号

For i = 1 To 9 '循环开始，共九次

Load T(i) '以T（0）为模板创建新标签T(i)，用于显示试题内容

Load D(i) '以D（0）为模板创建新

文本框D(i)，用于存放试题答案

Load DC(i) '以DC（0）为模板创建新标签DC(i)，用于显示对错

T(i).Top = T(i - 1).Top + T(0).Height + 70

'设置T（i）标签距离窗口顶部的距离

D(i).Top = T(i - 1).Top + T(0).Height + 10

'设置D（i）文本框距离窗口顶部的距离

DC(i).Top = T(i - 1).Top + T(0).Height + 10

'设置DC（i）标签距离窗口顶部的距离

T(i).Visible = True '让新标签T(i)可见

D(i).Visible = True '让新文本框D(i)可见

DC(i).Visible = True '让新标签DC(i)可见

D(i).TabIndex = i '设置TAB键的序号

Next '循环结束

Randomize '初始化随机数生成器

For i = 0 To 9 '循环开始

a(i) = Int((Rnd * ws) Mod ws) '随机产生其中一位加数

b(i) = Int((Rnd * ws) Mod ws) '随机产生另一位加数

c(i) = a(i) + b(i) '计算两加数的和

x = Format$(a(i), "00") '将第一位加数转化为字符串，不足两位前面添零补上

y = Format$(b(i), "00") '将第二位加数转化为字符串，不足两位前面添零补上

z = Format$(i + 1, "00") '将答案转化为字符串，不足两位前面添零补上

T(i).Caption = "（" & z & "）" & x & "+" & y & "=" '将试题内容显示在题目标签上

DC(i).Caption = "" '将对错标签清空

D(i).Text = "" '将答案文本框清空

D(i).Enabled = False '禁用文本框修改编辑功能

Next '循环结束标志

'========================= '窗口激活时执行

SJ.SetFocus '设置时间文本框输入焦点

'========================= '开始按钮事件代码：

dtsj = Val(SJ.Text) * 60 '设置答题时间秒

SJ.Enabled = False '禁用时间编辑修改功能

JSQ.Enabled = True '启用计时器，倒计时开始

XS.Caption = dtsj '显示倒计时初始值，单位秒

s = dtsj '倒计时变量赋初值

JG.Caption = "" '分值标签清空

KS.Enabled = False '开始按钮禁用

JS.Enabled = True '结束按钮启用

Dim i As Integer '定义循环变量

Dim x As String '定义临时加数变量

Dim y As String '定义临时加数变量

Dim z As String '定义临时答案变量

i = 0 '循环变量赋值初值0 Randomize '初始化随机数生成器

For i = 0 To 9 '循环开始

D(i).Enabled = True '设置答题文本框编辑修改功能

a(i) = Int((Rnd * ws) Mod ws) '随机产生其中一位加数

b(i) = Int((Rnd * ws) Mod ws) '随机产生另一位加数

c(i) = a(i) + b(i) '计算两加数的和

x = Format$(a(i), "00") '将第一位加数转化为字符串，不足两位前面添零补上

y = Format$(b(i), "00") '将第二位加数转化为字符串，不足两位前面添零补上

z = Format$(i + 1, "00") '将答案转化为字符串，不足两位前面添零补上

T(i).Caption = "（" & z & "）" & x & "+" & y & "=" '将试题内容显示在题目标签上

DC(i).Caption = "" '将对错标签清空

D(i).Text = "" '将答案文本框清空

Next '循环结束标志

D(0).SetFocus '设置文本框输入焦点

'========================= '结束按钮按钮事件代码：

KS.Enabled = True '启用开始按钮

JS.Enabled = False '禁用结束按钮

Dim i As Integer, zf As Integer '定义循环变量i和得分变量zf JSQ.Enabled = False '禁用计时器，倒计时停止

i = 0 '循环变量赋初值

zf = 0 '得分变量赋初值0 For i = 0 To 9 '循环开始，共十次循环

If c(i) = Val(Trim(D(i).Text)) Then '判断答案是否正确

zf = zf + 10 '正确加上相应的分数

DC(i).Caption = "√" '正确打上红钩

Else '否则错了

DC(i).Caption = "×" '错误打上叉

End If '判断语句结束

D(i).Enabled = False '禁用文本框修改编辑功能

Next '结束循环

JG.Caption = Trim(Str(zf)) & "分" '显示最终得分

'========================= '计时器代码

s = s - 1 '计时器变量减1 XS.Caption = Trim(Str(s)) '倒计时标签显示还剩余的秒数

If s = 0 Then '判断计时器变量是否为0

JS_Click '为0就调用结束按钮事件代码，自动结束答题

End If '判断结束

'========================= '退出按钮事件代码：

End

'退出程序命令

2、任务1：设计界面；

3、任务2：按照以下要求，加入上面的相关程序代码；

要求：

（1）定义相关全局变量:放在通用声明模块里

（2）编写程序启动时初始化的相关代码：放在窗体Form的Load模块里

Private Sub Form_Load() End Sub （3）编写窗口被触发时执行的代码：放在窗体Form的Activate模块里

Private Sub Form_Activate() End Sub

（4）编写开始按钮事件代码：放在按钮KS的Click模块里

Private Sub KS_Click() End Sub （5）编写结束按钮事件代码：放在按钮JS的Click模块里

Private Sub JS_Click() End Sub （6）编写计时器代码按钮：放在计时器JSQ的Timer模块里

Private Sub JSQ_Timer() End Sub （7）编写退出按钮事件代码

：放在按钮TC的Click模块里

Private Sub TC_Click() End Sub 4、任务3：运行程序；

5、任务3：调试程序；

6、巡视指导。

1、展示学生用VB生成的exe文件；

展示作品

2、学生互评、老师点评；

学生互评

修改完善

通过展示部分学生作品，激发学生创新编程的欲望

不属课堂教师小结

3、老师小结：编制计算机程序解决问题理解编程解（8分钟）

的过程。

决问题的过程

知识拓展

思考：怎样实现减法运算，保证随机产（2分钟）

生的被减数大于减数？

思考

如何条件判断？

任务，可供学有余力的同学思考

【教学后记】

本课让学生体验了编程解决问题的过程，也是信息技术与数学的整合一个应用。由于《高中信息技术》必修内容中，强调的是解决问题的过程而不是具体的算法设计，所以，教学中，原程序是由教师给出，只需学生在理解的基础上稍加改动。学有余力的学生可以思考并完成知识拓展的内容。

本节课存在的不足：

1、学生存在差异，部分学生在添加程序代码时，由于不太熟悉VB编制环境，导致加错位置，导致程序无法正常运行，对后续教学造成部分学生兴趣不高。

2、教师对学生的引导与关注度不够，造成部分学生没有完成任务，如果让学生同桌之间互相交流、探讨、帮助，那么效果会更好。

3、提升拓展效果不明显。