VB教案6.docVIP

课 题编写“别碰我”程序执教： 单树刚课型实践课教学目标认知目标： 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 Sub ? Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.CreateGraphics().Clear(Me. BackColor) End Sub ? Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Label1.Text = 别碰我 End Sub Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Label1.Text = 对象编程 End Sub ? Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click End End Sub?5、引导学生保存、调试、运行程序。保存、调试、运行程序。反 馈 练 习 设 计1、? 对象的三要素是什么？ 2、? 除了在属性窗口中直接设置对象的属性外，还可以利用属性赋值语句设置对象的属性。请在“别碰我”程序中找出设置对象属性的具体语句。 3、? “Label1”对象中存放了哪些程序段？这些程序段分别通过什么事件进行激发？ 4、? Form1.Cls中的Cls是“Form1”对象中的一种方法，试分析Cls方法的功能。反思