联系本站客服加+微信号15139388181 或QQ：983228566 |
视频标签：Visual Basic,程序设计实践
所属栏目：信息技术优质课视频
视频课题：浙教版高中信息技术选修1算法与程序设计《Visual Basic程序设计实践》浙江省优课
本视频配套资料的教学设计、课件 /课堂实录及教案下载可联本站系客服
《Visual Basic程序设计实践》教学设计
一、教材分析
本课选自浙江教育出版社高中信息技术《算法与程序设计》之《3.2在可视化的程序设计环境VB中建立一个应用程序》。在本课以前，学生已经学习了算法、VB应用程序的界面设计、VB基本语句、解析算法和枚举算法等内容。通过本课的学习，要让学生能综合运用前面所学的知识，感受程序带来的趣味与便利，培养学习算法与程序设计的兴趣，为面向对象程序设计奠定扎实的基础。 二、学情分析
本课的教学对象是高一学生，好学、乐学、善学是他们的优点。在认知水平方面，他们的学习能力强，接受新知的速度快，但逻辑思维能力和想象能力还比较欠缺。在情感态度方面，他们的求知欲强，学习热情高，但受挫能力比较弱，需要引导和鼓励。在知识储备方面，他们已经具备了一定的创作VB程序的能力与经验，为学习本课做好了铺垫。 三、教学目标
1.能在体验试玩游戏、设计界面、设计算法、编写程序代码等环节之后，归纳出创作VB程序的一般过程；能借助已有的游戏经验和创作经验，设计出漂亮的程序界面，设计出合理的算法，编写出正确的程序代码；能通过调试作品、完善作品，逐步提升分析问题、设计算法和解决问题的能力，积累创作复杂作品的经验。
2.善于借助学习材料开展自主学习，形成自主学习的习惯；善于借助数字资源，创作个性化的作品。
3.学会客观地评价游戏，正确地运用游戏；乐于分享学习经验，形成积极主动地参与学习的态度；树立责任意识，能客观地评价自己和他人的学习成果，学会尊重他人、欣赏他人。 四、教学重难点
教学重点：程序的界面设计；算法的程序实现 教学难点：设计算法；运用VB语言实现算法 五、教学资源
网络教室、极域电子控制系统，多媒体课件，自主学习材料，游戏素材（背景图片、地鼠图片等），“欢乐打地鼠”游戏的参考程序 六、教学方法
情境教学法、任务驱动教学法、范例教学法 七、教学环节
环节一、竞技游戏，感受程序之趣（3min） 教师活动
学生活动 设计意图 【竞技游戏】
喜欢玩游戏吗？那就来认真地玩一次吧。
试玩游戏
从学生喜爱的游戏导入，既
【引入新课】
我们平常玩的游戏都是别人设计的。想过自己设计游戏吗？今天大家都来试一试，做一款自己的游戏吧。
程序，体验游戏内容，明确程序功能。
能快速吸引他们的注意力，激发学习兴趣，也能让他们了解本课的学习任务，同时活跃课堂气
氛。
环节二、设计界面，展现个性之美（8min） 教师活动
学生活动
设计意图 【分析程序界面】
1.展示游戏程序，引导学生分析程序界面的构成。 分析结论：
界面中有1个窗体、1个标签控件、1个文本框控
件、5个图像框控件（控件数组）和1个计时器控件。 2.引导学生分析各个对象的属性设置。 分析结论：
对象名
属性名
属性值
说 明
Form1 Caption 欢乐打地鼠 游戏标题 Form1 Picture 背景图片 游戏背景 Label1 Caption 积分： 提示文字 Text1
Text 0 初始积分值 Image1数组元素
Picture 地鼠图片 5张地鼠图像 Timer1
Interval
1000
地鼠出现的时间间隔
【布置设计任务】
从素材库中挑选喜欢的素材，设计游戏程序的界面。
观察游戏程序，分析程序界面的构成。
分析各个对象需要设置
的属性名称及属性值。
挑选素材，设计个性化的程序界面。
重视引导和分析，培养观察与分析的能力，协助完成知识的迁移，降低后续操作的难度。
培养学以致
用的能力，落实第一个教学重点。
环节三、编写代码，铸就程序之魂（20min） 教师活动
学生活动
设计意图 【解析游戏环节】
展示游戏程序，引导学生解析游戏环节。 分析结论：
观察游戏程序，解析游以设计意图为基点，先剖析程序整体，再细
游戏包含三个环节：
(I）随机显示1只地鼠：由程序完成。 (II) 鼠标单击地鼠：由游戏者完成。
(III) 当地鼠被击中后，更新积分值：由程序完成。 其中(I）和(III)由程序实现。 【设计算法，实现(I）】
通过一系列的提问与解答，引导学生借助已有经验设计算法、实现算法。
分析结论：
（1）任务可分解为三个步骤：
① 将数组元素的Visible属性都设置为False。 ② 生成一个值在[0,4]内的随机整数i。 ③ 将Image1(i) 的Visible属性设置为True。 （2）描述算法的流程图如下：
（3）实现算法的VB程序代码如下：
Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 4
Image1(i).Visible = False Next i Randomize
i = Int(Rnd() * 5) Image1(i).Visible = True End Sub
【布置编程任务】
为计时器Timer1的Timer事件过程编写代码，实现每隔一段时间随机显示1只地鼠。 【设计算法，实现(III)】
戏环节，回答教师提问。
思考和回答教师的提
问，理顺思路，设计算法。
比对算法，理解算法。
使用VB语
言描述算法。
编写程序
代码，并调试。
化各个部分。在层层递进的过程中，培养学生的逻辑思维能力。
通过不断地
提问与解答，帮助学生理顺思
路、设计出算法，从而有效突破第一个教学难点。
通过先集体
分析再个人实
践，降低编程难度，有效突破第二个教学难点，落实第二个教学重点。
通过再次尝
试，巩固所学技能，强化教学效
果。
i ≤ 4 ？
Y
N
i ← 0
Image1(i).Visible ← False i ← i + 1
i ← Int(Rnd() * 5) Image1(i).Visible ← True
1.鼓励、引导学生自己设计算法、实现算法。 分析结论：
（1）任务可分解为三个步骤：
① 从文本框Text1中获取原积分值s1。 ② 原积分值s1加上10，作为新的积分值s2。 ③ 将新的积分值s2显示在文本框Text1中。 （2）描述算法的流程图如下：
（3）实现算法的VB程序代码如下：
Private Sub Image1_Click(Index As Integer) Dim s1 As Integer, s2 As Integer s1 = Val(Text1.Text) s2 = s1 + 10 Text1.Text = Str(s2) End Sub
2.引导学生编写、调试程序代码。
为图像框Image1的Click事件过程编写代码，实现地鼠被击中后，能更新积分值。
尝试自己设计算法、实现算法。
环节四、完善作品，追求完美之境（10min） 教师活动
学生活动 设计意图 【审视作品】
引导学生在调试程序的过程中，寻找不完善之处，并尝试修改。
【交流观点】
引导学生交流发现的问题，探讨解决的策略。 【分析案例】
通过分析案例，讲解如何完善作品。
问题描述：每隔1秒出现1只地鼠，几乎每只地鼠
调试程序，寻找缺陷，尝试修改。
交流与探讨。
探究问题根源，寻找解
引导学生修
正设计方案，提升设计能力。
帮助学生拓
宽思维，积累设计经验。
带领学生回顾、运用前面所学知识，拓展技
s2 ← s1 + 10
Text1.Text ← s2 s1 ← Text1.Text
都能被击中，难度太低。
问题根源：地鼠出现的间隔时间固定且太长。 修改思路：逐渐缩短前后两只地鼠出现时间的间隔，即减小计时器Timer1的Interval属性的值。
修改方法：在Timer1的Timer事件过程中添加代码：
Timer1.Interval = Timer1.Interval – 20 问题描述：随着时间推移地鼠出现的时间间隔越来越短，难度越来越高，但奖励积分却始终未变。
问题根源：每次击中地鼠后的奖励积分是固定值。 修改思路：根据计时器Timer1的Interval属性的值来划分难度等级，并设置相应的奖励积分。
修改方法：修改Image1_Click事件处理过程代码。
Private Sub Image1_Click(Index As Integer) Dim s1 As Integer, s2 As Integer, j As Integer s1 = Val(Text1.Text)
If Timer1.Interval >= 900 Then j = 10
ElseIf Timer1.Interval >= 600 Then j = 20 Else
j = 40 End If s2 = s1 + j Text1.Text = Str(s2) End Sub
决途径。 能，进一步强化教学效果。
环节五、回眸课堂，分享成功之悦（4min） 教师活动
学生活动
设计意图 【展示作品】
以学生自荐的方式展示作品。 【课堂小结】
总结制作VB程序的流程，并鼓励学生继续完善作品。
欣赏与评价。
跟着教师一起回顾知识。 让学生在欣赏和被欣赏的氛围中体验成功，学会客观地分析和评价信息。
视频来源：优质课网 www.youzhik.com
