VB成绩管理系统项目教学法教学案例设计.docVIP

PAGE PAGE 4 VB成绩管理系统项目教学法教学案例设计 王建强 学 科 VB程序设计 授课班级 10微机 日期 2012.3.27 课 题 项目：简易成绩统计系统 授课类型 项目教学 课时 1 教 材 VB程序设计项目化案例教程 任课教师 王建强 课序 8 教学目标 认知目标 掌握列表框的属性、事件和方法 理解数组在程序设计中的运用 能力目标 能够理解和灵活运用列表框的list、listcount、listindex属性和additem、removeitem方法。 能够完成成绩录入模块按钮功能的实现，实现知识点的迁移。 情感目标 培养学生之间协作的意愿与能力 培养严谨的学习态度 提高学生自主学习与建构知识的能力 教学重点 列表框属性和方法的综合运用 教学难点 如何把列表框中的数据存放到数组中 动态数组的运用 教学方法 任务驱动、引导启发、分组实施、小组合作 课前准备 课件、教案 设计意图 通过前面选择结构和for循环结构、数组、和列表框的控件的学习，综合设计一个项目：完成简易成绩统计系统的界面设计和代码编写，本项目分三个单元来完成，本次课是第二个单元，完成成绩录入模块中几个命令按钮功能的实现。通过项目的设计把前面的知识综合运用起来，实现知识点的迁移，提高学生编程的兴趣和学会举一反三的能力。 教 学 过 程 教 学 内 容 教师活动 学生活动 项目任务： 简易成绩统计系统 提出任务 展示教师已做好的成绩统计系统，分析项目任务，确定本次课学习目标。 前一次课我们完成了简易成绩统计系统界面的设计，今天，我们来学习成绩录入模块功能的实现。 二、任务分析 任务一：完成录入按钮代码的设计 功能：单击录入按钮，把文本框输入的数据显示在列表框中 思考：如何实现以上功能？ 难点一： 1）知识点讲解: AddItem方法：该方法用来为指定的列表框添加新的列表项，其使用格式为 Object.AddItem String [,number] 例如：List1.AddItem “计算机专业” 2）代码设计： Private Sub Command1_Click() ‘录入学生成绩 List1.AddItem Text1.Text Text1.Text = Text1.SetFocus End Sub 任务二：完成删除按钮代码的设计 功能:删除列表框中指定的内容 1）知识点讲解： 思考：如何表示所选定的列表框内容 (1)? ListIndex属性。该属性表示执行时选中的列表项序号，其值为整数。如果没选中任何项，则ListIndex的值为-1。该属性只能在程序运行时设置或引用。 (2)? RemoveItem方法。该方法用来从列表框中删除一个指定的列表项。其使用格式为：Object.RemoveItem number 例如：List1.RemoveItem 3 2）代码设计： Private Sub Command2_Click() ‘删除列表框中指定的内容 Dim n As Integer n = List1.ListIndex List1.RemoveItem n End Sub 任务三：完成清除按钮代码的设计 功能：清除列表框的全部内容 知识点讲解： Clear方法。该方法用来清除列表框中的所有内容。如：list1.clear 代码设计：学生自己完成 任务四：完成确认按钮代码的设计 功能：实现把列表框中的数据存放到数组中 思考：1、为什么要定义动态数组？如何定义？ 2、如何确定列表框中的数据项 1）知识点讲解： (1)? List属性。该属性用来返回或设置列表框控件对象中指定的列表项字符串，格式为 Object.List (Index)=String 例如：List1.List(0)=“计算机专业办” 注意：列表框中数据为字符串类型 (2)? ListCount属性。该属性表示列表框中列表项的数量，其值为一个整数。第一个列表项的序号为0，最后一个列表项的序号为ListCount-1值。ListCount属性只能在程序运行时设置或引用。 2）代码设计： Private Sub Command12_Click() ‘确认完成成绩录入 changdu = List1.ListCount ReDim shuzu(changdu) As Single For i = 0 To changdu - 1 shuzu(i) = Val(List1.List(i)) Next i MsgBox 成绩录入已完成！ End Sub 三、实战演练（分组实施） 学生完成：完成简易成绩统计系统第二模块成绩