PowerPoint制作自动交互问答课件82735

《PowerPoint制作自动交互问答课件82735》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、PowerPoint制作自动交互问答课件教师在每节课结束前，习惯留几道习题让学生们自行练习，以巩固当堂课所学的知识。如果用PowerPoint来做相应的演示文稿，可以利用其VBA功能，让这些练习具有交互功能。如图1,这是一个答题界面示例，可以判断答案正确性的多项选择题，下面我们来看看具体的实现过程。代舛斯赁蹩鬣化物的有:「水「纯碱「熟石灰「干冰判断重选1.启动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题干字符。2.执行“视图T工具栏9控件工具箱"命令，展开“控件工具箱

2、”，点击一下其中的“复选框"按钮，然后在幻灯片中拖拉出一个复选框来。「纯碱卩干冰3.选中上述复选框（CheckBoxl）,单击"控件工具箱"上的“属性"按钮，打开〃属性"对话框，切换到“按分类序"标签下，展开“外观〃选项，将其中的“Caption"后面的字符修改为题目相应的选项字符（如“水〃），再展开“字体〃选项，点击右侧的“省略号"按钮，打开“字体"对话框，设置好字体、字号等。小贴士：控件的其他属性可以直接采用默认的属性。4・将上述复制框复制三份（根据备选项的多少确定复制数量），分别将"Caption"属性修改为题目其他选项字

3、符（如“纯碱.熟石灰、干冰〃）o5.再用〃控件工具箱"的“命令按钮"在幻灯片上添加一个按钮，并将其“Caption"属性修改为“判断〃（或其他字符）。再双击该按钮，进入"VisualBasic编辑器"状态（如图4）,将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。IfCheckBoxl.Value=TrueAndCheckBox4.Value=TrueThenMsgBox11选择正确。舄vbOKOnly,"结果11ElseIfCheckBoxl.Value=TrueOrCheckBox4.Value=TrueThe

4、nMsgBox"选对了一个。笃vbOKOnly,"提示"ElseMsgBox“选择错误！正确答案是“水和干冰"！舄vbOKOnly,”提示"EndIfEndIf小贴士：上述代码的含义是，如果（If）选择了第1.和第4项（CheckBoxl.Value=TrueAndCheckBox4.Value=True）,按下"判断"按钮,则弹出如图3所示界面和消息（MsgBox）框（选择错误！正确答案是"水和干冰"！消息内容；vbOKOnly消息框中仅显示出一个“确定”按钮；提示一一消息框标题）。如果只选择了第1项或第4项，则会弹出如图所示

5、的消息框；其他选择均会弹出如图所示的消息框。扌鼻权天极软件提示卩纯碱选择错误？正确答案是“水和干冰歸?确定6・将上述命令按钮复制一份，将"Caption"属性修改为“重选"),再双击该按钮，将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。CheckBoxl.Value=FalseCheckBox2.Value=FalseCheckBox3.Value=FalseCheckBox4.Value=False7•在演示过程中，学生进行相应的选择后，按下“判断”按钮，即可作出相应判断;如果认为选择有误,按一下〃重选〃按钮，

6、即可重新选择。