列表框、组合框复习

《列表框、组合框复习》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、江苏省无锡立信职教中心校教案课题列表框、组合框复习课型复习、练习授课日期2010.5.20授课时数2教学目标巩固掌握列表框、组合框添加、删除项目的方法复习收集表单信息的方法教学重点添加、删除项目的方法教学难点相似方法和属性较难区分学情分析采用项目教学，让学生巩固复习前面所学知识。板书设计教师展示项目样品项目一：籍贯调查项目二：课程选修1创建用户界面2设置属性3编写代码4调试和运行学生练习、教师辅导作品点评、作品上传教学后记通过复习学生整体完成情况明显好转。江苏省无锡立信职教中心校备课笔记教学内容学生活动项

2、目一：籍贯调查1创建用户界面2设置属性3编写代码附代码：PrivateSubForm_Load()Combo1.AddItem("江苏")Combo1.AddItem("浙江")Combo1.ListIndex=0EndSubPrivateSubCombo1_Click()Combo2.ClearSelectCaseCombo1.TextCase"江苏"Combo2.AddItem("无锡市")Combo2.AddItem("盐城市")Combo2.AddItem("苏州市")Case"浙江"Combo2

3、.AddItem("杭州市")Combo2.AddItem("宁波市")EndSelectCombo2.ListIndex=0EndSub学生练习、教师辅导总结学生按照所示图进行制作学生练习江苏省无锡立信职教中心校备课笔记教学内容学生活动项目二：课程选修附图：（运行结果）附代码：PrivateSubCommand3_Click()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSubPrivateSubCommand4_Click()For

4、i=List2.ListCount-1To0Step-1List1.AddItemList2.List(i)List2.RemoveItem(i)NextEndSubPrivateSubCommand5_Click()DimstrAsStringxi=Combo1.Textzy=Combo2.TextFori=0ToList1.ListCount-1kc=kc+List1.List(i)+""Nextstr="你的籍贯是："+vbCrLf+"所在省："+xi+vbCrLf+"所在市："+zy+vbCrLf

5、+"选修课程"+kcMsgBoxstrEndSub教师提出问题、继而解决学生练习、教师辅导总结学生练习作品上传