本站QQ客服在线 |
视频标签：设计算法,数据管理,学号抽取器
所属栏目：信息技术优质课视频
视频课题：高中信息技术浙教版选修1算法与程序设计算法在数据管理中的应用 -学号抽取器的设计
教学设计、课堂实录及教案：高中信息技术浙教版选修1算法与程序设计算法在数据管理中的应用 -学号抽取器的设计
算法在数据管理中的应用
----学号抽取器的设计
一、学前分析——掌好有效教学之舵。 1、教材分析：
新一轮课改将我国基础教育的总目标落实到“学生发展核心素养”，具体到各个学科，又细化为学科核心素养。高中信息技术的学科核心素养包括了“信息意识”、“计算思维”、“数字化学习”和“信息责任”四个方面。从个性和共性的角度出发，具体的课堂教学目标分析应以学科核心素养为主，又兼顾总的学生发展核心素养，只有这样，才能使学生具备适应终身发展和社会发展需要的必备品格和关键能力。
VB模块是2014年浙江省普通高中信息技术统一考试开始后新增的一个内容，是普高必修模块考试中增分的一个的压轴题。VB根据一种新的程序设计思想方法，面向对象程序设计，可视化，图形户界面，把系统提供的对象（如命令按钮、文本框、标签框、图片框等）用鼠标拖动到应用程序窗口适当位置即可，极大的提高了程序效率。本节课是浙江教育出版社《算法与程序设计》后续整理《算法在数据库管理中的应用》第四课时在VB窗体中，显示从数据库中调用的数据。但由于这块内容较新，学业考试导引中的知识点比较简单，没有具体实例，这就要求我们教师根据相关考试条例、根据本校学生的实际，设计学生易操作易理解的实例，目的在复习以前知识点的同时，帮助学生理解知识、引导学生内化模块化设计思想，让学生感受到VB功能的强大，并能设计出一些效果较好的作品。
2、学生分析：
本教案的教学对象是普高高三年级学生。在本节课前，学生已经基本学会使用VB常用工具，熟悉了算法的基本概念、常用的控制结构及对象、属性、事件的概念、VB应用程序界面设计与代码窗口调试，基本掌握创建ADO对象，建立数据库连接、Recordset对象的基本方法与属性（Open、Close、MoveNext 、Fields、 EOF）等知识点。对VB设计学生虽恐惧但也产生了一定的兴趣。基于普高信息技术课课时少、周期长、学生易忘、操作性强的特点，在教学中尽量让学生在渴望中积极探索、自主学习，以“学生为主”，让学生主动学、主动练为原则，达到让学生真正手动、脑动这一目的。
二、精心设计——开启有效教学之旅。 教学目标：
1、知识目标：
① 通过师生共同分析VB的实例，加深学生对相关控件、属性名、函数、程序
控制结构、ADO编程接口及相关对象的理解；
2
② 通过对属性窗口代码的设计，让学生进一步提高VB程序代码的理解与程序
调试能力及一些技巧；
③ 让学生自主实践，利用ADO完成完美学号抽取器设计的相关操作； 2、 能力目标：
① 使学生掌握利用VB设计程序的一般流程及操作方法，增强学生处理信息、
编程的能力；
② 通过对VB代码窗口的设计，引导学生对具体问题做到多分析、多动手的调
试能力，进一步深化对VB应用软件的认识，培养学生自主学习能力，探索创新能力和综合运用知识的能力。
3、 情感、德育目标：
① 感受运用VB软件创作作品的乐趣；
② 体验信息技术蕴含的文化内涵，形成和保持对信息技术的求知欲。 ③ 关注社会与信息技术的互动性，促成计算思维的提升。
教学重点和教学难点：
重点：VB控件、相关属性名、函数、程序控制结构、代码窗口设计的协调性与理解； 难点：ADO对象的应用及DO```While循环结构的应用，类与对象的理解。
（一）引入：
相信大家都看过倪萍主持的大型公益寻人节目《等着我》，这是一个传递正
能量的“为爱圆梦”的节目。结局的场面令人兴奋与感人，但过程是非常的艰辛。今天我们也来为我校的学弟圆梦，圆一个完美学号抽取器的梦。
4
6、Command Button 按钮类（2个对象，1个类）：
任务二：设计属性窗口
1、form窗体类（1个对象）：caption 2、Label标签类（3个对象）：caption 3、Text文本类（1个对象） 4、 Image类（1个对象） stretch :True
picture：导入
5、Timer定时器类(1个对象)
Enabled: True Interval: 50
6、CommandButton 按钮类： Caption属性的设置
任务三：设计代码窗口
1、Timer计时器类: Randomize
a = Int(Rnd * 41 + 1) Text1.Text = Str(a)
2、Command Button 按钮类: (1)开始
Label3.Caption = "正在抽奖中！让我们期待吧！" Timer1.Enabled=True (2)结束
Label3.Caption = "恭喜您成为幸运同学，让我们鼓掌欢迎！" Timer1.Enabled=False 3、ADO引入
5
4、Form_Load 窗体载入：
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0 " + "DATA Source=" + App.Path + "\学生档案.accdb" conn.Open
Set rs.ActiveConnection = conn rs.Open “select * from 1和2组合班" i = 0
Do While Not rs.EOF i = i + 1
xh(i) = rs.Fields("学号") xm(i) = rs.Fields("姓名") xb(i) = rs.Fields("性别") rs.MoveNext Loop rs.Close conn.Close
任务四：保存文件与上传文件
保存类型： 工程.Vbp 窗体.frm 可执行.exe
任务五（扩展提高，有余力同学做）
视频来源：优质课网 www.youzhik.com
