VB在ppt中的应用.doc

PowerPoint制作自动交互问答课件文章类别：PowerPoint | 发表日期:2008-8-29 16:15:45收藏到QQ书签 -教师在每节课结束前，习惯留几道习题让学生们自行练习，以巩固当堂课所学的知识。如果用视频教程powerpoint来做相应的演示文稿，可以利用其VBA功能，让这些练习具有交互功能。 如图1，这是一个答题界面示例，可以判断答案正确性的多项选择题，下面我们来看看具体的实现过程。 图1 1启动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题干字符。2执行“视图工具栏控件工具箱”命令，展开“控件工具箱”，点击一下其中的“复选框”按钮，然后在幻灯片中拖拉出一个复选框来。图2 3选中上述复选框（CheckBox1），单击“控件工具箱”上的“属性”按钮，打开“属性”对话框，切换到“按分类序”标签下，展开“外观”选项，将其中的“Caption”后面的字符修改为题目相应的选项字符（如“水”），再展开“字体”选项，点击右侧的“省略号”按钮，打开“字体”对话框，设置好字体、字号等。小贴士：控件的其他属性可以直接采用默认的属性。4将上述复制框复制三份（根据备选项的多少确定复制数量），分别将“Caption”属性修改为题目其他选项字符（如“纯碱、熟石灰、干冰”）。5再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮，并将其“Caption”属性修改为“判断”（或其他字符）。再双击该按钮，进入“Visual Basic编辑器”状态（如图4），将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。If CheckBox1.Value = True And CheckBox4.Value = True ThenMsgBox 选择正确。, vbOKOnly, 结果ElseIf CheckBox1.Value = True Or CheckBox4.Value = True ThenMsgBox “选对了一个。”, vbOKOnly, “提示”ElseMsgBox 选择错误！正确答案是“水和干冰”！, vbOKOnly, 提示End IfEnd If小贴士：上述代码的含义是，如果（If）选择了第1和第4项（CheckBox1.Value = True And CheckBox4.Value = True），按下“判断”按钮，则弹出如图3所示界面和消息（MsgBox）框（选择错误！正确答案是“水和干冰”！消息内容；vbOKOnly消息框中仅显示出一个“确定”按钮；提示消息框标题）。如果只选择了第1项或第4项，则会弹出如图所示的消息框；图3 其他选择均会弹出如图所示的消息框。图4 6将上述命令按钮复制一份，将“Caption”属性修改为“重选”），再双击该按钮，将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseCheckBox4.Value = False7.在演示过程中，学生进行相应的选择后，按下“判断”按钮，即可作出相应判断；如果认为选择有误，按一下“重选”按钮，即可重新选择。 本文章来自 21视频教程网 PowerPoint制作自动交互问答课件_PowerPoint教程 原文链接：/html/36254.shtmlOffice系列中的视频教程powerpoint是一个非常有用的动画制作软件。下面就介绍用PowerPoint制作动画的方法。一、选择“文件”菜单的“New(新建)”，这时会出现“NewSlide(新建幻灯片)”窗口。在“ChooseanAutoLayout(选择一个自动成图)”中选择一图标以第三行第一列之图标为例，单击“OK”退出。二、单击出现的图标上部的“Clicktoaddtitle(单击增加标题)”，输入要建的动画标题，单击图标“Clicktoaddtext(单击增加正文)”，输入正文内容。双击“Doubletoaddclipart(双击增加图片)”，选择要选用的图片。也可单击图标，再单击工具栏上的“Insertclipart”按钮，插入选择的图片。三、选中一个图标(如果你想按你的意图来设计图片，则可利用其提供的作图工具来绘制图片)，单击鼠标右键，选择“AminationSettings(漫画设置)”命令，出现“AnimationSettings”选择框，在“BuildOptions”选项中，选择“AllatOnce”，将“Startwhenpreviousbuildends”可选框选中，在“Effects”中选取自己喜爱的效果，然后单击“OK”完成。四、依照第三项中的操作，将其它图设计好。然后再选择“View”菜单中的“Slideshow”命令看看效果如何。五、选择其状态栏上的“Newslide”命令，依照上面的步骤，制作第二、第三、第四个图片。六、将每页幻灯片制作完毕后，选择“View”菜单中的“Slidesorter”命令，在分类页面中选中一页幻灯片后，单击鼠标右键，选择“SlideTransition”命令。七、在“SlideTransition”选择框的“Effect”中选择效果类型，“Speed”同“Advance”选项可随个人的喜好选定。按“OK”确定。八、依次将其它幻灯片用第六项、第七项所示操作设计好。九、如果你想给幻灯片加上美丽的背景，则可选择工具栏上的“Applydesigntemplate”按钮，选择你喜欢的背景，按“Apply(应用)”退出。十、在“Slidesorter”视图下，单击右键，选择“SlideShow”命令，出现“SlideShow”选择框，在“Advance”中寻UseSlideTimings”选项，将“LoopContinuouslyUntilEsc”可选项选中，即在显示幻灯片时，只有按下