《控件数组及其应用——霓虹灯的设计与制作》教学设计
教学主题
控件数组及其应用——霓虹灯的设计与制作
年级
高二
课型
新授课
课时
1课时
一．教学目标
知识与技能:
1.了解控件数组的概念及其作用；
2.掌握创建控件数组的方法；
3.掌握控件数组元素的引用方法，并能在霓虹灯设计中正确使用控件数组；
4.了解控件数组共享事件过程的特点；
5.会使用for循环访问控件数组中的元素；
6.掌握在程序设计中正确应用时钟控件和随机函数RND的方法。
过程与方法：
1.通过界面设计掌握控件数组的创建方法，发挥创意，制作出多种创意形状的霓虹灯；
2.通过编写代码，实现霓虹灯效果，提高学生对控件数组的理解和应用能力，培养其严谨的算法思维，提高其分析问题、解决问题的能力；
3.通过自主探究、完成任务培养学生的自主学习能力。
情感态度与价值观：
1.本节的任务设计由易到难，学生在不断突破“障碍”的过程中感受到了成功解决问题的乐趣，体会到了程序设计的魅力，激发学生进一步学习程序设计的兴趣；
2.通过自主学习，启发思维，逐渐养成主动探究问题的习惯，培养学生的自学能力。
二．教学重点
掌握控件数组元素的引用方法，并能在霓虹灯设计中正确使用控件数组。
三．教学难点
会使用for循环访问控件数组中的元素。
四．教学方法
任务驱动法、自主学习法、演示法。
五．教学资源
学习资源：导学案、常见运行错误提示、微课视频、优秀范例程序等；
辅助资源：FTP服务器、极域电子教室。
六．教学过程
教学环节
师生活动
设计意图
课前准备
1.打开桌面“控件数组及其应用学习资源”文件夹，浏览文件夹中的内容。（1个优秀作品文件夹，1个导学视频，3个word文档：学案，常见运行错误提示，知识链接）
2. 运行霓虹灯作品，了解作品的界面构成，思考作品的实现方法。
初步了解本节提供的资源和学习内容。
直接导入：欣赏作品、明确任务
师生共同欣赏作品，教师提出要求：在欣赏优秀样例作品时，思考这些作品使用了VB中的哪些控件？
以其中2幅霓虹灯作品为例：
教师：帆船这幅作品使用了VB中的什么控件？
学生：时钟。
教师：时钟控件在作品中起什么作用？
学生：按钮颜色自动更新。
教师：正确，还使用了什么控件？
学生：按钮。
教师：正确，本作品用到的按钮控件分为两类，一类颜色不发生变化，蓝色按钮；一部分颜色随机变化，随机变化的这一部分就可以使用按钮控件数组来完成。
教师：钥匙和小花这幅作品呢？
学生：按钮控件和Shape控件
教师：正确。这幅作品中圆形和椭圆形部分颜色随机变化，使用了shape控件组成的控件数组；中间颜色随机变化的钥匙使用了按钮控件组成的控件数组。
教师：该作品还添加了一个新的功能，单击任何按钮都可以停止灯光闪烁，再次单击恢复初始状态。
……
教师：欣赏了这么多作品同学们已经跃跃欲试了，首先我们来了解一下本节课的学习任务。
基础任务：
1.使用控件数组制作霓虹灯界面；
2.初步实现霓虹灯闪烁效果。
拓展任务：
单击界面的任何按钮控件可以停止灯光闪烁。
1.学生对本节课的任务有一个整体认识；
2.设疑控件数组、激发探究欲望：在分析作品时，教师指出那一部分使用控件数组实现，学生对控件数组及其作用有了一个整体的模糊认识，而对于什么是控件数组，如何创建和使用控件数组，学生充满了好奇心和强烈的探究欲望。
基础探究、初写代码
1.设计界面
（1）教师提出要求：使用按钮创建控件数组，数组元素的初始个数不易太多（后期功能实现后可以继续增加数组元素完善界面，而无需修改代码）。
（2）学生根据导学案和导学视频，自主探究完成界面的设计。
（3）在设计过程中，教师巡回指导，并适时提醒学生注意：不能随意删除元素，为了保持控件数组元素的连续性，只可以删除下标最大的元素。
1.设计一个简单的初始界面，避免学生将过多的精力放在界面设计上，而忽视了后面的重点内容。
2.将学习的主动权交给学生，培养其自主探究能力。
2.初写代码
（1）教师提出任务：初步实现霓虹灯闪烁效果。
（2）学生自主探究2分钟，教师观察学生的反应情况，如果借助导学案，无法探究实现闪烁效果，所以将任务进行分解，老师引导学生对分解后的任务逐一探究与实现。
（3）任务分解与实现：
任务1：给下标为0的按钮，设置绿颜色；效果展示
学生自主探究1分钟，然后让实现的学生给全班同学演示自己程序的运行效果，并介绍代码，教师做适当的补充。
任务2：给下标为0按钮，设置随机颜色；效果展示
学生自主探究2分钟，然后让实现的学生演示自己程序的运行效果，并介绍RND函数的使用，教师适当补充。
任务3：随机按钮，随机颜色。效果展示
学生自主探究2分钟，然后让实现的学生演示程序的运行效果，讲解如何将RND函数的使用从颜色值随机，迁移到按钮下标随机上；以及如何确定数组元素的最大下标，教师做适当的补充和总结。
1.教师先给学生一段思考的时间，再分解任务，这样学生带着问题学习，学习的内驱力就被激发出来了。
2. 三个小任务按由易到难的原则逐渐增加难度，学生在完成任务的过程中掌握了控件数组元素的引用方法，在不断突破“障碍”的过程中感受到了成功解决问题的乐趣。同时，为了帮助学生形象直观的理解任务，每个任务后面都对应了一个效果展示文件。
拓展探究、完善提高
1.如何同时更新控件数组中所有元素的颜色？
首先观看形象直观的效果展示
教师：现在按钮的颜色是一个个更新的，如何同时更新所有按钮的颜色呢？
学生：为每一个按钮编写代码。
学生：有多少按钮写多少句更新颜色的代码。
教师：正确，像图中所示吗？
教师：可如果我的按钮非常多怎么办，比如有300或者500，甚至更多。
学生：使用for循环。
2.如何实现单击当前控件数组中的任何一个按钮元素停止灯光闪烁？
师生首先共同探究以下两个问题：
（1）灯光一直闪烁的原因：Timer控件处于启动状态Timer1.Enabled=True；
（2）如何让灯光停止闪烁呢？Timer1.Enabled=False。
然后，学生自主探究代码书写的具体位置，并观察运行效果。
最后，教师让成功实现的同学演示效果，并一起分析代码，尝试解释原因，引出控件数组共享事件的特点。
1.数组元素的访问方式，通常使用for循环来实现。在此即解决了任务，又成功引入了for循环，为下节课数组的使用做好了铺垫。
2. 引入控件数组元素共享事件过程的特点。学生知道代码应该写在按钮下面，但是不知道只需要写一次即可，对于误打误撞实现的效果非常震惊，印象自然也很深刻。
深度拓展、完善提高
1.如何实现单击当前控件数组中的任何一个按钮灯光继续闪烁？
2.完善美化界面。
学生自主探究，教师巡回指导。
该部分内容为基础较好的学生准备，他们在完成前面任务的基础上，可以进一步探究学习，完善作品的功能和界面。
提交作品、交流评价
1.自评作品
【评价标准】满分100
基本分（60分）
拓展分（40分）
内容健康积极
主题明确
实现基本功能
有设计者信息
运行正常
界面美观大方
使用2个控件数组及以上
有一定创意
奇思妙想
10
10
20
10
10
10
10
10
10
2.提交作品
上交可执行文件，文件名：学号后四位+姓名+自评分数。
3.师生共同评价作品
1.从学生的知识、技能和情感三个方面对学生进行全面的评价；
2.通过自评，引导学生自我反思，加深对所学知识的认识和理解；
3.师生共同点评作品，可以让学生见贤思齐，见不贤而内自省的效果。两种评价相结合才能促进学生信息素养的提高和全面发展，切实体现信息技术教学的创新要求。
课堂总结、素养提升
老师引导学生，对本节的知识点进行归纳总结。
1.控件数组中元素的下标从 开始，顺序标号；
2.控件数组中元素的引用方法 ；
3.同时更新控件数组中所有元素的颜色，应该使用 语句实现；
4.控件数组可以 事件过程。
通过总结，升化学生对所学知识的认识和理解。帮助学生从总体把握知识、理解和运用知识，培养学生善于思考、归纳总结的能力。
课堂延伸
课后思考：控件数组还可以制作那些小软件？（比如：连连看、推箱子、小组计分器、…）
教学是一个开放的体系，恰当的课堂教学延伸，可以使课堂上所学到的知识，所明白的道理得到更生动、更鲜活、更深刻的验证，同时还可以拓宽学生的视野。
附录：学生资源
1.导学案…………………………………………………………………………..…………6
2.常见运行错误提示……………………………………………………………………….10
3.知识链接………………………………………………………………………………….11
《控件数组及其应用》导学案
一.学习目标
1. 了解控件数组的概念及其作用；
2. 能够正确的创建控件数组；
3. 掌握控件数组元素的引用方法，并能在霓虹灯设计中正确使用控件数组；（重点）
4. 了解控件数组共享事件过程的特点；
5. 会使用for循环访问控件数组中的元素；
6. 能够在程序设计中正确应用时钟控件和随机函数RND。
二.学习指南
以学案为主，涉及到的知识点参考“知识链接”，程序运行错误参考“常见运行错误提示”
三.霓虹灯的功能要求
（1）实现五彩斑斓的灯光闪烁效果；
（2）单击任何灯光控件可以停止灯光闪烁。
四.霓虹灯作品的设计与制作
分类
具体任务
知识点拨|操作指南
基
本
任
务
基
本
任
务
1.设计界面
1.1思考：使用什么控件制作霓虹灯；
1.2创建控件数组
具体请参照右侧的【操作指南】或者
导学视频
【知识点拨】
控件数组的概念：控件数组由一组相同类型的控件组成，它们具有相同的名称。
【操作指南】以创建按钮控件数组为例
1.在工具箱中选择按钮控件，在窗体上生成一个command1对象。修改图1所示属性：
（1）修改（名称）属性值为c;
（2）修改caption 属性值为空;
（3）修改style属性值为1；
（4）修改BackColor属性，设置初始颜色
2.在窗体上“复制”和“粘贴”C，这时VB会弹出类似
图2的对话框进行询问：单击“是”，一个具有两个元素的控件数组就建好了！
它们具有相同名称，只是下标不同，下标由Index属性标出。系统默认其中一个元素的index为0，另一个元素的inex为1（如图2所示）。
3.继续复制粘贴，为控件数组添加更多的元素（建议初期不超过12个元素）。
（小技巧：可以1复制为2,2复制为4,4复制为8……）
注意：
a.将这些控件初步组合成你喜欢的图形一部分；
b.不能随意删除元素（如果需要删，从下标最大的元素开始，下标最大元素的查找方法如图3所示，保证控件数组元素的下标是连续的）；
c.初期元素太多不利于查找和修改错误。
功能实现后，后期可以继续添加数组元素，无需修改代码。
1.3 时钟控件的设置
【操作指南】
在工具箱中选时钟控件，在窗体上生成timer1。修改timer1的interval属性，属性值为1000（单位为ms）。
2. 编写初步代码
实现霓虹灯闪烁效果
时钟Timer1的事件：
（时钟控件可以有规律地隔一段时间执行一次代码）：
任务分解：
（1）给下标为0的按钮，设置绿颜色；效果展示
（2）给下标为0按钮，设置随机颜色；效果展示
（3）随机按钮，随机颜色。效果展示
【知识点拨】
1.控件数组中元素的引用：直接在控件数组名后指明下标
格式： < 控件数组名 >（下标） 如:c(2),c(8),c(i);
2.修改对象的属性：
格式：对象.属性=属性值
如：把按钮c(8)的背景颜色改为绿色：
C(2).Backcolor=RGB(0,255,0)
说明：
RGB函数的格式：RGB(红色值,绿色值,蓝色值)，颜色值均取0-255中的整数。
3.Rnd随机函数：随机生成0到1之间的小数。
4.时钟控件又称计时器，通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码(时间间隔由你设置的interval属性值决定，单位ms)
温馨提示：
遇到解决不了程序运行错误，可以查看文件夹中的“常见运行错误提示.doc”
3. 调试运行
【操作指南】
方法：执行“运行/启动”菜单命令运行程序（或者）；
执行“运行/结束”菜单命令结束程序（或者）。
拓
展
任
务
1. 同时更新控件数组中所有元素的颜色
具体参考：效果展示
【知识点拨】
For-Next循环的一般结构：
For 循环控制变量=初值 To 终值 [step 步长]
循环体
Next 循环控制变量
2. 编写代码
实现单击当前控件数组中的任何一个元素都可以停止灯光闪烁。效果展示
温馨提示：关闭时钟控件即可。
【知识点拨】
（1）时钟控件是否工作通过Enabled属性设置：（True启动，False关闭）。
如: Timer1. Enabled=True则是启动时钟控件，时钟控件一般默认为True。
（2）控件数组中的所有元素都共享相同的事件过程。
所谓共享相同的事件过程，就是，无论我们左键单击c数组的哪个按钮控件，触发的都是同一个事件C_Click。
Private Sub C_Click(Index As Integer)
End Sub
深度拓展
1.灯光停止闪烁后，如何实现单击任何按钮灯光继续闪烁。效果展示
【知识点拨】Not取反运算符
如：Not False= True
Not True= False
尝试代码：Timer1.Enabled=Not Timer1.Enabled
2. 完善美化界面
比如：（1）添加设计者信息；（2）添加结束按钮；（3）调整form1窗体的背景色（BackColor），或者添加背景图片（Picture）；（4）调整元素位置或者颜色等。例如：颜色函数可以设置成RGB(50+100 * Rnd, 50+100 * Rnd,100+100 * Rnd)，即在颜色区间RGB (50,50,100)—RGB (150,150,200)中随机选择一种颜色。
五.作品评价
自评得分
【评价标准】满分100
基本分（60分）
拓展分（40分）
内容健康积极
主题明确
实现基本功能
有设计者信息
运行正常
界面美观大方
使用2个控件数组及以上
有一定创意
奇思妙想
10
10
20
10
10
10
10
10
10
六.作品提交
上交可执行文件，文件名：学号后四位+姓名+自评分数：
生成可执行文件的方法：菜单—>文件—>生成工程1.exe ；
保存在“桌面上”，运行无误后，上交到ftp上对应组名的文件夹内。
七.总结
1. 控件数组中元素的下标从 开始，顺序标号；
2. 控件数组中元素的引用方法 ；
3. 同时更新控件数组中所有元素的颜色，应该使用 语句实现；
4. 控件数组可以 事件过程。
八.课堂延伸
课后思考：控件数组还可以制作那些小软件？（比如：连连看、推箱子…）
常见运行错误提示
一.控件数组元素不存在。
常见错误提示：
原因：
1.C(11 * Rnd).BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
这里应该11是数组中元素的最大下标，而你实际的数组元素中最大下标可能小于11.
2.元素下标不连续
可能复制粘贴的过程中，删除过某个数组元素，导致下标不连续。
方法：选中数组中的任一个元素，复制粘贴，系统会自动生成缺少下标的元素。如果有多余元素，可以删除下标最大的那个。
二.颜色不发生变化的可能原因：
1.选中时钟控件，检查其interval的值是否未改为1000或者其他数值如下图所示：。
2.选中按钮控件检查是否将style属性修改为1，如下图所示：
三.运行后窗体不出现
原因：form1 的visible属性错改为false,正常应该是true
方法：单击窗体空白处，在form1的属性窗口中将visible的属性值改为true即可。
《控件数组及其应用》知识链接
一. 控件数组
VB编程时，常常需要使用一批（多个）同一类型的控件对象，如36个Shape，12个按钮控件等等。如果一个个生成这些控件对象，就会产生如Command1, Command2,……., Command12的零散对象，为这些对象一个个编写代码非常繁琐、不方便。这时，不妨改用控件数组。顾名思义，控件数组就是一组控件对象，如Command(0), Command(1),……, Command(16)，其中每个对象均称为控件数组的一个元素。
1. 控件数组的概念
控件数组是由一组相同类型的控件组成，它们具有相同的名称。
2. 控件数组的引用
直接在控件数组名后指明下标，其格式为：
< 控件数组名 > （下标） 控件数组中数组元素的下标由该控件的 Index 属性值决定。
例如：由多个Command控件构成的控件数组C，如果给更改数组中下标为0的按钮颜色就可以使用下面的语句： c(0).Backcolor=RGB(255,0,0)。
3. 控件数组元素共享事件过程
当创建了一个控件数组后，控件数组中的所有元素都共享相同的事件过程。比如，我们使用按钮控件创建了一个有12元素的C控件数组：c(0)、c(1)、…c(11)。所谓共享相同的事件过程，就是，无论我们单击其中的哪个按钮控件，触发的都是同一个事件C_Click，与以往不同的是：这个事件过程还带回一个参数Index(形式如下)，其中的Index就是击中元素的下标。
??????????????Private Sub C_Click(Index As Integer)
??????????????End Sub
4.控件数组中元素最大下标的查找方法（如下图所示）
二. 如何修改按钮控件的颜色
必须修改style属性值为1，才能成功修改BackColor属性，设置按钮颜色
三. rnd 随机函数
作用：随机生成0到1之间的小树
比如: rnd*12 则可以随机生成0到11.9999…….中间的一个小数。
在使用Rnd前可以加上随机数初始化：Randomize ; 避免每次运行时第一次产生的随机数相同
四. 时钟控件
时钟控件又称计时器控件，通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码，
时间间隔由时钟控件的interval属性值决定，比如,interval=1000,则1s更新一次代码。
时钟控件是否响应通过Enabled属性设置（True响应，False不响应）。
五.RGB函数
R(red红)、G(green绿)、B(blue蓝)的缩写
通过三种颜色混合生成一种颜色。
格式：RGB(红色值,绿色值,蓝色值)
均在0~255直接的整数。
如：RGB(255,0,0)红色，RGB(0,255,0)绿色，RGB(0,0,255)蓝色，RGB(0,0,0)黑色。
常量颜色：
如：
Line (0, 0)-(100, 100), vbRed
Line (0, 0)-(100, 100), RGB(255, 0, 0)
随机产生一种颜色：RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) ；如RGB(120,235,198)
六. Shape控件
Shape控件有方形、圆形等各种形状可供选择。
Shape属性修改如图5所示:
（1）在Shape属性中选择需要的形状
（2）设置shape控件的颜色（需要修改Fillstyle=0和Fillcolor两个属性）。
课件18张PPT。课前准备1. 打开桌面“控件数组及其应用学习资源”文件夹，浏览文件夹中的内容。（1个优秀作品文件夹，1个导学视频，3个word文档，分别是：学案，常见运行错误提示，知识链接）
2. 运行霓虹灯作品，了解霓虹灯作品的界面构成，思考作品的实现方法 控件数组及其应用 浙教版《算法与程序设计》高二——霓虹灯的设计与制作欣赏作品
导入新课作品欣赏欣赏作品导入新课欣赏作品
导入新课明确任务导入新课基础任务：
（1）使用控件数组制作霓虹灯界面；
（2）初步实现霓虹灯闪烁效果（数组元素的引用）；
拓展任务：
单击界面的任何按钮控件可以停止灯光闪烁（控件数组共享事件过程)基础探究
设计界面设计初始界面要求：使用按钮创建控件数组，数组元素的初始个数不易太多（12个左右）。功能实现后，后期可以继续复制粘贴，而无需修改代码注意：
不能随意删除元素（只可以删下标最大）基础探究
初写代码步骤一：分析问题 初步实现霓虹灯闪烁效果步骤二：编写初步代码 Private Sub Timer1 _Timer()
End Sub？基础探究
初写代码步骤二：编写初步代码 < 控件数组名 >（下标）控件数组中元素的引用格式: 如：
C(0).Backcolor=RGB(255,0,0)
C(1).Backcolor=RGB(255,0,0)基础探究
初写代码步骤二：编写初步代码任务分解：
给指定按钮，设置固定颜色 ;
给指定按钮，设置随机颜色 ;
随机按钮，随机颜色 。C(0).Backcolor=RGB(0,255,0)基础探究
初写代码步骤二：编写初步代码任务分解：
给指定按钮，设置固定颜色 ;
给指定按钮，设置随机颜色 ;
随机按钮，随机颜色 。C(0).Backcolor=RGB(0,255,0)C(0).Backcolor=RGB(255*rnd,255*rnd,255*rnd)C(11*rnd).Backcolor=RGB(255*rnd,255*rnd,255*rnd)拓展探究
完善提高
1.如何同时更新控件数组中所有元素的颜色？
拓展探究
完善提高
1.如何同时更新控件数组中所有元素的颜色？
For i = 0 To ?
C(i).BackColor = …
Next i
拓展探究
完善提高Private Sub C_Click(Index As Integer)
Timer1. Enabled=False
End Sub
2.如何实现单击当前控件数组中的任何一个按钮元素停止灯光闪烁？
控件数组可以 事件过程。共享深度拓展
完善提高
3.如何实现单击当前控件数组中的任何一个按钮灯光继续闪烁？
Private Sub C_Click(Index As Integer)
Timer1.Enabled=Not Timer1.Enabled
End Sub深度拓展
完善提高
4. 完善美化界面
比如：
（1）添加设计者信息；
（2）添加结束按钮；
（3）调整form1窗体的背景色（BackColor）；
（4）调整元素位置或者颜色等。展示作品
交流评价评价标准：满分1001.控件数组中元素的下标从 0 开始，顺序标号。展示作品
交流评价 < 控件数组名 >（下标）课堂总结
素养提升2.控件数组中元素的引用格式 ?如： c(0)、c(1) 4. 控件数组可以 事件过程。展示作品
交流评价课堂总结
素养提升Private Sub C_Click(Index As Integer)
End ‘比如左击c数组中任何一个元素退出程序
End Sub共享3. 同时更新控件数组中所有元素的颜色，应该使用什么语句实现
For i = 0 To 11
C(i).BackColor = …
Next i
‘假设数组中共有12元素（下标：0-11）谢谢大家课后评测练习
1.控件数组中元素的下标从 开始，顺序标号。
2.控件数组中元素的引用格式： 。
3.同时更新控件数组中所有元素的颜色，应该使用 语句实现。
4. 控件数组可以 事件过程。
5.RGB（0,255,0）的颜色是
6. 时钟控件的时间间隔由 属性值决定。
A.Enabled B.Interval C.Index D.Tag
7.总结调试运行错误
将自己调试程序过程中遇到的错误汇总在此，没遇到的错误不用填。
错误现象
您的错误原因
控件数组元素不存在，例如上图
按钮颜色不发生变化
…
…
