列表框、组合框复习.docVIP

江苏省无锡立信职教中心校教案 课 题 列表框、组合框复习 课 型 复习、练习 授课日期 2010.5.20 授课时数 2 教学目标 巩固掌握列表框、组合框添加、删除项目的方法 复习收集表单信息的方法 教学重点 添加、删除项目的方法 教学 难点 相似方法和属性较难区分 学情分析 采用项目教学，让学生巩固复习前面所学知识。 板 书 设 计 教师展示项目样品 项目一：籍贯调查 项目二：课程选修 1创建用户界面 2设置属性 3编写代码 4调试和运行 学生练习、教师辅导 作品点评、作品上传 教学 后记 通过复习学生整体完成情况明显好转。 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 项目一：籍贯调查 1创建用户界面 2设置属性 3编写代码 附代码： Private Sub Form_Load() Combo1.AddItem (江苏) Combo1.AddItem (浙江) Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click() Combo2.Clear Select Case Combo1.Text Case 江苏 Combo2.AddItem (无锡市) Combo2.AddItem (盐城市) Combo2.AddItem (苏州市) Case 浙江 Combo2.AddItem (杭州市) Combo2.AddItem (宁波市) End Select Combo2.ListIndex = 0 End Sub 学生练习、教师辅导 总结 学生按照所示图进行制作 学生练习 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 项目二：课程选修 附图：（运行结果） 附代码： Private Sub Command3_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub Private Sub Command4_Click() For i = List2.ListCount - 1 To 0 Step -1 List1.AddItem List2.List(i) List2.RemoveItem (i) Next End Sub Private Sub Command5_Click() Dim str As String xi = Combo1.Text zy = Combo2.Text For i = 0 To List1.ListCount - 1 kc = kc + List1.List(i) + Next str = 你的籍贯是： + vbCrLf + 所在省： + xi + vbCrLf + 所在市： + zy + vbCrLf + 选修课程 + kc MsgBox str End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结 学生练习 作品上传