江苏省无锡立信职教中心校教案课 题单选框、复选框复习课 型讲 授、练习授课日期2010.5.19授课时数2教学目标巩固掌握用单选框、复选框进行属性设置学会如何制作收集信息的表单教学重点用单选框、复选框进行属性设置制作收集信息的表单教学难点分清多种方法的区别使用学情分析知识需用通过练习及时巩固，否则就遗忘。板书设计复习提问项目一：字体属性设置项目二：学生信息调查表1创建用户界面2设置属性3编写代码4调试和运行教师布置任务学生练习、教师辅导作品上传，教师点评教学后记起初学生遗忘了很多，通过提示学生都能完成，还不错。江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动项目一：字体属性设置1创建用户界面2设置属性3编写代码复习：单选框、复选框的特征是什么？解决：单选框：任何时候有且只有一个被选中复选框：可以有任意个被选中提出问题：如何实现下图所示大小、颜色各一个单选框被选择中？解决：使用frame控件进行分组。附代码：Private Sub Check1_Click()Text1.FontBold = Not Text1.FontBoldEnd SubPrivate Sub Check2_Click()Text1.FontItalic = Not Text1.FontItalicEnd SubPrivate Sub Option1_Click()Text1.FontSize = 30End SubPrivate Sub Option4_Click()Text1.ForeColor = vbRedEnd Sub附图：学生回答提问学生练习江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动项目二：学生信息调查表1创建用户界面2设置属性3编写代码提出问题：单选框、复选框是否被选中，通过什么来判断？解决：它们的value属性。附代码：Private Sub Command1_Click()Dim tc, jb As StringIf Option1.Value = True Then xb = 男Else xb = 女End IfIf Check1.Value = 1 Then tc = 唱歌 End IfIf Check2.Value = 1 Then tc = tc + 体育 End IfIf Check3.Value = 1 Then tc = tc + 绘画 End Ifjb = 姓名： + Text1.Text + 年龄： + Text2.Text + vbCrLf + 性别： + xb + vbCrLf + 特长： + tcLabel7.Caption = jbEnd Sub附图：教师提出问题、继而解决学生练习、教师辅导作品上传、教师点评学生回答提问学生练习