VB教案6.doc

课 题编写“别碰我”程序执教： 单树刚课型实践课教学目标认知目标：1、了解面向对象程序设计的基本思想。技能目标：2、掌握用面向对象程序设计的基本思想编写程序。情感目标：3、培养学生的编程能力。教学内容教学重点：理解对象及事件。教学难点：巧妙的选择对象与事件。教 教学 学方 手法 段1启发式教学法2探索学习法3多媒体辅助教学4任务驱动式教学教 学 程 序 设 计教师活动学生活动1、 师生共同体验“别碰我”程序的功能，并明确学习任务。1） 运行“别碰我”程序，如下图所示：2)当鼠标指针移动到“对象编程”文字后，文字切换显示为“别碰我”。当鼠标指针离开文字“别碰我”后，文字又恢复为“对象编程”。3）单击文字“别碰我”，窗口左侧出现一个圆。4）双击文字“别碰我”，画出的圆消失。5）单击窗体的其它区域，结束程序。2、引导学生分析程序界面组成。3、引导学生分析任务2到5步所涉及到的对象与事件。4、引导学生输入程序。分析程序界面组成，并填写如下表：对象名对象类型作用Form1窗体在上面加载对象组成程序界面Label1标签用来显示文字Image1图象用来承载鼠标离开Label1对象事件。1、分组讨论、分析任务中所涉及到的对象与事件。2、将分析结果写入下表：对象名事件事件过程功能Form1Click关闭窗口Label1MouseMove显示“别碰我”Label1Click画圆Label1DblClick清除圆Image1mousemove显示“对象编程”学生进入代码窗口，先选择对象与事件，然后输入对应的程序段。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 SubPrivate Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.CreateGraphics().Clear(Me.BackColor)End SubPrivate Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Label1.Text = 别碰我End SubPrivate Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Label1.Text = 对象编程End SubPrivate Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click EndEnd Sub5、引导学生保存、调试、运行程序。保存、调试、运行程序。反馈练习设计1、 对象的三要素是什么？2、 除了在属性窗口中直接设置对象的属性外，还可以利用属性赋值语句设置对象的属性。请在“别碰我”程序中找出设置对象属性的具体语句。3、 “Label1