《列表框、组合框复习》由会员分享,可在线阅读,更多相关《列表框、组合框复习(3页珍藏版)》请在金锄头文库上搜索。
1、江苏省无锡立信职教中心校教案江苏省无锡立信职教中心校教案课 题列表框、组合框复习课 型复习、练习 授课日期2010.5.20授课时数2教学目标巩固掌握列表框、组合框添加、删除项目的方法 复习收集表单信息的方法教学重点添加、删除项目的方法教学 难点相似方法和属性较 难区分学情分析采用项目教学,让学生巩固复习前面所学知识。板 书 设 计教师展示项目样品项目一:籍贯调查项目二:课程选修1 创建用户界面 2 设置属性 3 编写代码 4 调试和运行学生练习、教师辅导作品点评、作品上传教学 后记通过复习学生整体完成情况明显好转。江苏省无锡立信职教中心校备课笔记江苏省无锡立信职教中心校备课笔记教 学 内 容
2、学生活动 项目一:籍贯调查项目一:籍贯调查 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.TextCase “江苏“Combo2.AddItem (“无锡市“)Combo2.AddItem (“盐城市“)Combo2.AddItem (“苏州市“)Case “浙江“Com
3、bo2.AddItem (“杭州市“)Combo2.AddItem (“宁波市“) End Select Combo2.ListIndex = 0 End Sub 学生练习、教师辅导 总结学生按照所 示图进行制 作学生练习江苏省无锡立信职教中心校备课笔记江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动 项目二:课程选修项目二:课程选修 附图:(运行结果)附图:(运行结果)附代码:附代码: Private Sub Command3_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub Privat
4、e Sub Command4_Click() For i = List2.ListCount - 1 To 0 Step -1List1.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 - 1kc = kc + List1.List(i) + “ Next str = “你的籍贯是:“ + vbCrLf + “所在省:“ + xi + vbCrLf + “所在市:“ + zy + vbCrLf + “选修课程“ + kc MsgBox str End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结学生练习作品上传