PowerPoint制作自动交互问答课件
2008-07-23 09:18
274 查看
教师在每节课结束前,习惯留几道习题让学生们自行练习,以巩固当堂课所学的知识。如果用PowerPoint来做相应的演示文稿,可以利用其VBA功能,让这些练习具有交互功能。
如图1,这是一个答题界面示例,可以判断答案正确性的多项选择题,下面我们来看看具体的实现过程。
1.启动PowerPoint2003(其他版本操作相似),打开相应的课件演示文稿,定位到制作练习题幻灯片中,输入题干字符。
2.执行“视图→工具栏→控件工具箱”命令,展开“控件工具箱”,点击一下其中的“复选框”按钮,然后在幻灯片中拖拉出一个复选框来。
3.选中上述复选框(CheckBox1),单击“控件工具箱”上的“属性”按钮,打开“属性”对话框,切换到“按分类序”标签下,展开“外观”选项,将其中的“Caption”后面的字符修改为题目相应的选项字符(如“水”),再展开“字体”选项,点击右侧的“省略号”按钮,打开“字体”对话框,设置好字体、字号等。
小贴士:控件的其他属性可以直接采用默认的属性。
4.将上述复制框复制三份(根据备选项的多少确定复制数量),分别将“Caption”属性修改为题目其他选项字符(如“纯碱、熟石灰、干冰”)。
5.再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮,并将其“Caption”属性修改为“判断”(或其他字符)。再双击该按钮,进入“Visual Basic编辑器”状态(如图4),将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
小贴士:上述代码的含义是,如果(If)选择了第1和第4项(CheckBox1.Value = True And CheckBox4.Value = True),按下“判断”按钮,则弹出如图3所示界面和消息(MsgBox)框(选择错误!正确答案是“水和干冰”!——消息内容;vbOKOnly——消息框中仅显示出一个“确定”按钮;提示——消息框标题)。
如果只选择了第1项或第4项,则会弹出如图所示的消息框;
其他选择均会弹出如图所示的消息框。
6.将上述命令按钮复制一份,将“Caption”属性修改为“重选”),再双击该按钮,将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
7.在演示过程中,学生进行相应的选择后,按下“判断”按钮,即可作出相应判断;如果认为选择有误,按一下“重选”按钮,即可重新选择。
如图1,这是一个答题界面示例,可以判断答案正确性的多项选择题,下面我们来看看具体的实现过程。
1.启动PowerPoint2003(其他版本操作相似),打开相应的课件演示文稿,定位到制作练习题幻灯片中,输入题干字符。
2.执行“视图→工具栏→控件工具箱”命令,展开“控件工具箱”,点击一下其中的“复选框”按钮,然后在幻灯片中拖拉出一个复选框来。
3.选中上述复选框(CheckBox1),单击“控件工具箱”上的“属性”按钮,打开“属性”对话框,切换到“按分类序”标签下,展开“外观”选项,将其中的“Caption”后面的字符修改为题目相应的选项字符(如“水”),再展开“字体”选项,点击右侧的“省略号”按钮,打开“字体”对话框,设置好字体、字号等。
小贴士:控件的其他属性可以直接采用默认的属性。
4.将上述复制框复制三份(根据备选项的多少确定复制数量),分别将“Caption”属性修改为题目其他选项字符(如“纯碱、熟石灰、干冰”)。
5.再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮,并将其“Caption”属性修改为“判断”(或其他字符)。再双击该按钮,进入“Visual Basic编辑器”状态(如图4),将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
If CheckBox1.Value = True And CheckBox4.Value = True Then MsgBox "选择正确。", vbOKOnly, "结果" Else If CheckBox1.Value = True Or CheckBox4.Value = True Then MsgBox “选对了一个。”, vbOKOnly, “提示” Else MsgBox "选择错误!正确答案是“水和干冰”!", vbOKOnly, "提示" End If End If
小贴士:上述代码的含义是,如果(If)选择了第1和第4项(CheckBox1.Value = True And CheckBox4.Value = True),按下“判断”按钮,则弹出如图3所示界面和消息(MsgBox)框(选择错误!正确答案是“水和干冰”!——消息内容;vbOKOnly——消息框中仅显示出一个“确定”按钮;提示——消息框标题)。
如果只选择了第1项或第4项,则会弹出如图所示的消息框;
其他选择均会弹出如图所示的消息框。
6.将上述命令按钮复制一份,将“Caption”属性修改为“重选”),再双击该按钮,将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False
7.在演示过程中,学生进行相应的选择后,按下“判断”按钮,即可作出相应判断;如果认为选择有误,按一下“重选”按钮,即可重新选择。
相关文章推荐
- PowerPoint课件高级制作技巧
- 用PowerPoint中的VBA实现课件中的智能交互
- 用PowerPoint中的VB实现课件中的智能交互
- PowerPoint课件制作技巧
- PowerPoint课件制作技巧集锦
- 学会PowerPoint快捷键 您也能成为办公课件制作高手
- 用PowerPoint开发多媒体课件必需的两个自动运行宏
- PowerPoint课件动画制作三例
- CSS网页制作时实现自动换行的小技巧
- 网站制作流程及界面交互设计
- 自动提示的文本框(加Ajax异步交互)
- 如何用课件制作工具验证三角形内角和
- Linux Shell脚本实现自动交互
- Android手把手教大家制作APP首页(下拉刷新、自动加载)
- 使用python制作ArcGIS插件(4)界面交互
- c#自动更新+安装程序的制作
- 基于知识图谱的电影自动问答系统(二)自动问答实现
- 基于百度理解与交互技术实现机器问答
- AJAX 学习笔记[八] AJAX 制作可自动校验的表单
- 制作自动运行程序(由vb6推广引用)