Powerpoint制作单选题和填空题技巧

时间:2018-08-15 热度:
后台-系统-系统设置-扩展变量-(内容页告位1-手机版)


     
 

      教师在课堂教学时,往往会在课堂的最后给学生留下几道练习题,让学生们练习。如何用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”和相应的其他文字为自定义变量,可以用其他字母代码和文字代替。

 

后台-系统-系统设置-扩展变量-(内容页告位2-手机版)
声明:本文内容来源于用户自行上传或互联网,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:kf@hequma.com 进行举报,并提供相关证据,一经查实,本站将立刻删除涉嫌侵权内容。

相关推荐

后台-系统-系统设置-扩展变量-(内容页告位3-手机版)