单选框、复选框复习.docVIP

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