单选框、复选框复习.doc

1、江苏省无锡立信职教中心校教案课 题 单选框、复选框复习 课 型 讲 授、练习授课日期 2010.5.19 授课时数 2教学目标 巩固掌握用单选框、复选框进行属性设置学会如何制作收集信息的表单教学重点用单选框、复选框进行属性设置制作收集信息的表单教学难点分清多种方法的区别使用学情分析 知识需用通过练习及时巩固，否则就遗忘。板书设计复习提问项目一：字体属性设置项目二：学生信息调查表1 创建用户界面2 设置属性3 编写代码4 调试和运行教师布置任务学生练习、教师辅导作品上传，教师点评教学后记 起初学生遗忘了很多，通过提示学生都能完成，还不错。江苏省无锡立信职教中心校备课笔记教 学 内 容 学生活动项

2、目一：字体属性设置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()Te

3、xt1.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附图：教师提出问题、继而解决学生练习、教师辅导作品上传、教师点评学生回答提问学生练习