在PowerPoint中用触发器制作交互单项选择题和控件VBA制作填空题.doc

在PowerPoint中用触发器制作交互单项选择题和控件VBA制作填空题 在PowerPoint中用触发器制作交互单项选择题和控件VBA制作填空题 本文可以学到： 1如何用PPT制作交单项互选择题 2用VBA辅助制作填空题 教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢？看看我是如何利用 PowerPoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。 一、触发器做单项选择题 以一道选择题为例，启动PowerPoint2003，新建一空白幻灯片，利用文本框，输入题干内容。点击“幻灯片放映→动作按钮”，选中“动作按钮：自定义”选项，然后在PPT中画出一个按钮。 1.制作模板：右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上添加第一个备选答案（如“A、170克/摩尔”），并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。 2.复制试题：选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮（共操作3次，复制3个），并修改字符为其他备选项答案。 3.添加答案：插入文本框，并输入“正确、错误”及相关提示的字符（如“错误！”），并设置好字体、字号、字符颜色等。 4.设置交互：选中这个文本框，执行“幻灯片放映→自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入→飞入”选项；再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，打开“飞入”对话框（方法：如图，在所设置的动画对象上双击或单击旁边的下拉按钮并选中“效果选项”），切换到“及时”标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“动作按钮：自定义2……”选项（即第一个备选答案对应的“动作按钮”项），“确定”返回。 5.制作完成：按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。 二、VBA法来填空 上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。 1.制作试题：用文本框输入填???题的题目内容，点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框。 2.设置命令：单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“Caption”修改为“查看正确答案”（具体修改内容，请根据需要确定），并关闭属性窗口。 3.插入代码：双击插入的命令按钮打开VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub”语句之间输入如下代码： IfTextBox1.Text=物理Then dd=MsgBox(你填对了, vbOKCancel,结果) Else dd=MsgBox(你填错了, vbOKCancel,结果) EndIf 4.效果预览：制作完成了，赶快按下F5功能键来看一下效果吧。 小提示： VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“…”号，即可打开“字体”对话框设置字体等。 MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其他字母代码和文字代替。 原文来源：世纪家园 原文地址： HYPERLINK /bbs_list.asp?Id=3310 /bbs_list.asp?Id=3310 巧用PowerPoint触发器制作练习题 作者：佚名 点击数： 417 2007-8-15 来源:天骥课件网 　　以前我们在用PowerPoint制作课件时，常常发现制作人机交互练习题非常麻烦。现在在PowerPoint 2002和PowerPoint XP里，利用自定义动画效果中自带的触发器功能可以轻松地制作出交互练习题。触发器功能可以将画面中的任一对象设置为触发器，单击它，该触发器下的所有对象就能根据预先设定的动画效果开始运动，并且设定好的触发器可以多次重复使用。类似于Authorware、Flash等软件中的热对象、按钮、热文字等，单击后会引发一个或者的一系列动作。下面举一个制作选择题的例子来说明如何使用PowerPoint的触发器。 　　1． 插入文本框并输入文字 　　插入多个文本框，并输入相应的文字内容。要特别注意把题目、多个选择题的选项和对错分别放在不同的文本框中，这样可以制作成不同的文本对象。如图1就是一个小学数学选择题，这里一共有8个文本框。 ? 图1 单选题 　　2． 自定义动画效果 　　触发器是在自定义动画中的，所以在设置触发器之前还必