个密室吧，然后把公主藏在其中的一个密室里。（用command控件来代替密室） 2.一学生上前操作，其余学生观察思考，教师引导 具体操作： ? 拖拽三个command控件——修建密室 ? 设置判断条件——tag标签（tag=0 or tag=1） ? 为每个按钮添加事件（加载图像） If tag=0 command 消失 If tag=1 command 出现公主图片 三、增加任务难度，引出新知识（12分钟） 魔法师想：密室是不是太少了呢？这样很容易就被发现了，我要扩建密室，我要100个密室。 请学生思考：怎样扩建？ 教师引导并操作，师生共同探究，分析思路，写代码（一个一个拖拽太麻烦，我们可以直接复制，由此引出控件数组，然后通过观察其属性与事件讲解什么是控件数组及其特点） 教师操作 1.复制控件（复制前设置好所有属性）——控件数组创建 （教师演示操作，讲解数组） 2.设置判断条件——tag标签，藏起公主（循环） 3.王子寻找公主——为控件添加事件——控件数组，一条语句，共享事件。 四、复习随机函数，拓展思维（3分钟） 魔法师又想，不行，这样还是会被找到，我得每过一段时间就转移公主，这样就比较难找了，哈哈哈…… 随机函数 rnd 五、总结强调（2分钟） 回顾课上程序编写过程，以提问方式强调 控件数组（概念和特点）/复习rnd/If 语句 六、布置作业 [来源:学&科&网] 七、附录 课上程序： （二）分析—— 1. 创建城堡 首先修改窗体caption为“魔法师的城堡” 然后设置窗体背景图片 2. 修建密室 拖拽3个command控件在窗体1中 拖拽image控件存放公主图片 3. 藏匿公主 隐藏公主image 修改控件属性style为1 设置tag标签——1表示公主在 4. 寻找公主 王子通过点击command控件来寻找公主，若点击到的控件中刚好有公主，即控件的tag标签为1，那么就显示公主图片，并提示“谢谢你解救了我，我要嫁给你！”，如果控件的tag为0，则控件的enable属性为false （三） 分析—— 1. 拖拽1个command控件在窗体1中（设置属性） 2.扩建密室——复制command1，创建控件数组。复制更多 3.藏匿公主 修改控件属性style为1 设置tag标签——1表示公主在 4.寻找公主 王子通过点击command控件来寻找公主，若点击到的控件中刚好有公主，即控件的tag标签为1，那么就显示公主图片，并提示“谢谢你解救了我，我要嫁给你！”，否则，控件的enable属性为false 说明：教学过程包括预习内容与指导、展示交流、点拨升华、作业反馈等内容。
课题名称 综合练习——编写“别碰我”程序 ◇了解面向对象程序设计的基本思想。 ◇掌握用面向对象程序设计的基本思想编写程序。 ◇培养学生的编程能力。 教学目标 教学重点 教学难点 理解对象及事件。 巧妙的选择对象与事件。 1．启发式教学法 教学方法及教具 2．探索学习法 3．多媒体辅助教学 4．任务驱动式教学 课时数 环节 教学内容 1 第一课时 二次备课 教学随记 一、 师生共同体验“别碰我”程序的功能，并明确学习任务。 1） 运行“别碰我”程序，如下图所示： 教学过程 2)当鼠标指针移动到“对象编程”文字后，文字切换显示为“别碰我”。当鼠标指针离开文字“别碰我”后，文字又恢复为“对象编程”。 3）单击文字“别碰我”，窗口左侧出现一个圆。 4）双击文字“别碰我”，画出的圆消失。 5）单击窗体的其它区域，结束程序。 分析程序界面组成，并填写如下表： 对象名 对象类型 Form1 窗体 作用 在上面加载对象组成程序界面 用来显示文字 用来承载鼠标离开Label1对象事件。 Label1 标签 Image1 图象 1.分组讨论、分析任务中所涉及到的对象与事件。 2.将分析结果写入下表： 对象名 事件 二、引导学生分析程序界面组成。 三、引导学生分析任务2到5步所涉及到的对象与事件。 四、引导学生输入程序。 Form1 Click 事件过程功能 关闭窗口 Label1 MouseMove 显示“别碰我” Label1 Click Label1 DblClick 画圆 清除圆 Image1 mousemove 显示“对象编程” 学生进入代码窗口，先选择对象与事件，然后输入对应的程序段。 Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click Me.CreateGraphics().DrawEllipse(Pens.Black, 20, 20, 100, 100) End Sub Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.CreateGraphics().Clear(Me. BackColor) End Sub
泰山版初中信息技术VB部分教案（2012版） - 图文
