浏览器之家


用PPT2003打造超级练习题

本文可以学到
1如何用PPT制作互动式选择题
2用VBA辅助制作填空题

教师在课堂教学时,往往会在课堂的最后给学生留下几道练习题,让学生们练习。如何用PPT制作好的练习题呢?看看我是如何利用 PowerPoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。

一、触发器做单选

以一道选择题为例,启动PowerPoint2003,新建一空白幻灯片,利用文本框,输入题干内容。点击“幻灯片放映→动作按钮”,选中“动作按钮:自定义”选项,然后在PPT中画出一个按钮。

1.制作模板:右击插入的按钮,在弹出的快捷菜单中选择“添加文本”选项,在“动作按钮”上添加第一个备选答案(如“A、170克/摩尔”),并设置好字体、字号、字符颜色,调整“动作按钮”的大小和位置。

2.复制试题:选中这个“动作按钮”,按着Ctrl拖拉鼠标,快速复制一个按钮(共操作3次,复制3个),并修改字符为其他备选项答案(见图1)。

3.添加答案:插入文本框,并输入“正确、错误”及相关提示的字符(如“错误!”),并设置好字体、字号、字符颜色等。

4.设置交互:选中这个文本框,执行“幻灯片放映→自定义动画”命令,展开“自定义动画”任务窗格,单击“添加动画”右侧的下拉按钮,在下拉列表中选择“进入→飞入”选项;再按“方向”右侧的下拉按钮,在列表中选择“自左铡”选项,在“自定义动画”选择“飞入”,打开“飞入”对话框,切换到“及时”标签卡,单击“触发器”按钮,选中“单击下列对象时启动效果”选项,并在下拉列表中选择“动作按钮:自定义2……”选项(即第一个备选答案对应的“动作按钮”项),“确定”返回。

5.制作完成:按此文本框的操作,设置好另外3个文本框的动画及触发器,制作完成。

二、VBA法来填空

上述用触发器只能制作选择,有的练习题需要填空形式,就用VBA来实现吧。

1.制作试题:用文本框输入填空题的题目内容,点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮,在填空题的空格处拖拉出一个控件文本框(见图2)。

2.设置命令:单击“命令按钮”按钮并画一个按钮来。选中此按钮,单击“属性”,展开“命令按钮”属性对话框,将其中的“Caption”修改为“查看正确答案”(具体修改内容,请根据需要确定),并关闭属性窗口。

3.插入代码:双击插入的命令按钮打开VBA编辑窗口,在“PrivateSub
CommandButton1_Click()”和“EndSub”语句之间输入如下代码:
  IfTextBox1.Text="物理"Then
    dd=MsgBox("你填对了",
vbOKCancel,"结果")
 Else
    dd=MsgBox("你填错了",
vbOKCancel,"结果")
  EndIf
4.效果预览:制作完成了,赶快按下F5功能键来看一下效果吧(见图3)。

小提示:VBA文本框属性的修改选中文本框,单击工具条上的“属性”,打开“文本框”属性对话框,选中“font”选项,然后点击后面的“…”号,即可打开“字体”对话框设置字体等。

MsgBox是弹出对话框的命令,而代码中的“dd”和相应的其他文字为自定义变量,可以用其他字母代码和文字代替。

评论

没安装畅言模块