交互填空题技巧PPT(选择题.ppt

Powerpoint制作选择、填空题技巧,教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢？如何利用PowerPoint2003的动画触发器和VBA功能来实现？,1.触发器做填空题,第一步：打开PowerPoint 2003（其它版本操作类似），先建立一个空白幻灯片，然后单击“插入”“文本框”“水平”命令，插入一个文本框，接着在文本框中输入第一道题的题目，按照同样的方法再插入一个文本框，输入题目的正确答案并设计好字体的颜色。,第二步：先右击题目的正确答案“2008年8月8日”，选择“自定义动画”命令，接着在打开“自定义动画”面板中，单击“添加效果”按钮右边的下拉箭头，选择“进入”“盒状”（也可以选择自己所喜欢的其它动画效果)。,第三步：右击“自定义动画”面板“速度”下边第一道题目的正确答案“2008年8月8日”，选择“计时”，打开“盒状”对话框并切换到“计时”选项卡，接着单击“触发器”按钮，勾选触发器下边的“单击下列对象时启动效果”单选按钮，最后单击该单选按钮右边的下拉箭头，选择第一道题的题目作为第一道题目答案的“触发器”，如图。,这样当幻灯片放映时，单击第一道题的题目时，题目的正确答案就会以先前设定的盒状动画效果出现。 设置“触发器”时，“触发器”的对象选择要有一定的规律，否则就会乱七八糟了，造成题目的正确答案该出来的没有出来，不该出来的出来了，从而影响讲课效果。,北京奥运时间,2008年8月8日,2.触发器做单选题,下列关于分子、原子、离子叙述正确的是：,A. 原子是一种不能再分的微粒。,B. 阳离子得到电子后一定变成原子。,C. 离子是构成物质的一种微粒。,D. 分子是化学变化中的最小微粒。,回答错误！ 再想一想。,回答错误！ 再想一想。,回答正确！ 祝贺你！,回答错误！ 再想一想。,操作要点,1.选种文本（被触发对象）右键自定义动画添加效果进入出现 单击有小鼠标的任务格，会在该格右侧出现下拉按钮，单击，在弹出的下拉列表中选择“计时”命令 2.计时触发器单击下列对象时启动效果选定触发对象确定 3.再次选种文本右键自定义动画添加效果退出消失 （如有多个被触发对象，可重复操作，可参看效果）,具体操作,以一道选择题为例，启动PowerPoint2003，新建一空白幻灯片，利用文本框，输入题干内容。,1.制作模板：插入文本框,添加第一个备选答案,并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。 (动作按钮亦可) 2.复制答案：选中这个按着Ctrl拖拉鼠标，快速复制一个按钮（共操作3次，复制3个），并修改字符为其他备选项答案。,3.添加答案：插入“标注”图片，并输入“正确、错误”及相关提示的字符（如“回答错误！再想一想。” “回答正确！祝贺你！”），并设置好字体、字号、字符颜色等。,4.设置交互： 选中这个文本框，执行“幻灯片放映自定义动画”命令，展开“自定义动画”任务窗格，单击“添加效果”右侧的下拉按钮，在下拉列表中选择“进入飞入”选项；再按“方向”右侧的下拉按钮，在列表中选择“自左侧”选项，在“自定义动画”选择“飞入”，打开“飞入”对话框.,切换到“计时”标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“形状”选项（即第一个备选答案对应的“形状”项），“确定”返回。,5.制作完成：按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。,3.VBA法来做填空题,（VBA, Visual Basic for application一种编程语言） 在PowerPoint中使用VBA制作课件实现高级交互功能 PowerPoint中的VBA可以实现很多复杂的交互，其强大的编程能力让课件的制作简单快捷。制作出来的PPT课件具有交互性和灵活性，并且使课程教学富有生动性和趣味性.,VBA是什么?,直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言-VisualBasic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VISUAL BASIC的子集.实际上VBA是寄生于VB应用程序的版本.,1.制作试题：用文本框输入填空题的题目题干内容。再点击“视图工具栏控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框（供写答案）。,北京奥运会的吉祥物是,交互式课件示例,单选题示例：,多选题示例：,填空题示例：,判断题示例： 数据结构就是研究数据库结构的课程。,2.设置命令：单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“标题Caption ”修改为“查看正确答案”（具体修改内容，请根据需要确定），并关闭属性窗口。 命令按纽（commandButton）,3.插入代码：双击插入的命令按钮打开VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub”语句之间输入如下代码：（Sub是方法的开始 EndSub是方法的结束）,If TextBox1.Text=“物理“Then dd=MsgBox(“你填对了“,vbOKCancel,“结果“) Else dd=MsgBox(“你填错了“,vbOKCancel,“结果“) EndIf,4.效果预览：制作完成了，赶快按下F5功能键来看一下效果吧（播放时需启用宏） 小提示:VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“”号，即可打开“字体”对话框设置字体等。,MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其他字母代码和文字代替。 （播放时需启用宏-单击“视图”选项卡，在工具栏的VB最左边有一个“运行宏”的图标。选择运行即可。 若没有宏，则创建一个，再运行 ，另存为加载宏）,4.VBA法来做选择题,题干(一般用普通文本框) 选项按纽（optionButton一般有ABCD四个选项） 命令按纽（commandButton一般有“查看结果”和“进入下一张”两个） 都可以添加代码 （不能正常播放时需启用宏）,选项按纽 名称:BUTI,BUT2,BUT3,BUT4 CAPTION:改为A、B、C、D 第一个命令按纽（CommandButton）： “重新选择” 第二个命令按纽“CommandButton”：“下一题”,第一个选项按纽 If But1.Value = True Then ex = MsgBox(“选择正确！恭喜你！“, vbOKOnly) 第二个选项按纽 If But2.Value = True Then ex = MsgBox(“选择错误！请再想想！“, vbOKOnly) 第三个选项按纽 If But3.Value = True Then ex = MsgBox(“选择错误！请再想想！“, vbOKOnly) 第四个选项按纽 If But4.Value = True Then ex = MsgBox(“选择错误！请再想想！“, vbOKOnly),第一个命令按纽 But1.Value = False But2.Value = False But3.Value = False But4.Value = False 第二个命令按纽 If MsgBox(“是否继续“, vbYesNo + vbQuestion, 下一题) = vbYes Then With SlideShowWindows(1).View .GotoSlide 2 End With End If,1.奠定今天我国版图基础的朝