单选框、复选框复习
江苏省无锡立信职教中心校教案 课
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
单选框、复选框复习 课 型 讲 授、练习
2010.5.19 2 授课日期 授课时数
巩固掌握用单选框、复选框进行属性设置 教学目标 学会如何制作收集信息的表单
用单选框、复选框进行属 教学 分清多种
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
的区别教学重点 性设置 难点 使用 制作收集信息的表单
学情分析 知识需用通过练习及时巩固，否则就遗忘。
复习提问
项目一:字体属性设置 项目二:学生信息调查表 1创建用户界面 2设置属性 板
3编写代码
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
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 附图:
学生练习 教师提出问题、继而解决
学生练习、教师辅导
作品上传、教师点评
浙公网安备 33021202002483