PowerPoint自动交互问答课件

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

1、PowerPoint制作自动交互问答课件教师在每节课结束前，习惯留儿道习题计学牛.们白行练习，以巩固当堂课所7的知识。如果用PowerPoint來做和应的演示文稿，可以利用其VBA功能，让这些练习貝有交耳功能。如图1,这是一个答题界面示例，可以判断答案止确性的多项选择题，下向我们来看看貝•体的实现过程C代殆獗整蠶化物的仃:「水纯碱「熟石灰「干冰判断重选1.川动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题T字符。2.执行“视图一工具栏一控件工具箱”命令，展开“控件工具箱”，点击一下英中的坟选框

2、”按钮，然后在幻灯片中拖拉出个复选框來。厂纯碱计冰1.选屮上述复选框（CheckBoxl），单击“控件工具箱”上的“屈性”按饥，打开“属性”对话框，切换到“按分类序”标签下，展开“外观”选项，将其中的“Caption”后向的字符修改为题H和应的选项了符（如“水”），再展开“7体”选项，点击右侧的“省略号”按钮，打开“了体”对话框，设置好字体、字号等。小贴1「：控件的其他属性可以直接采用默认的属性。2.将上述复制框复制二份（根据备选项的多少确左复制数量），分别将“Caption”属性修改为题H其他选项7符（如“纯碱、熟右灰、十冰”）。3.再用“控件「•具

3、箱”的“命令按钮”在幻灯片上添加一个按钮，并将博Caption”属性修改为“判断”（或其他了符）。再双击该按钮，进入“VisualBasic编辑器”状态（如图4）,将卜述代码输入到出现的•纽代码屮间，输入窕成后，关闭窗口返回。IfCheckBoxl.Value=TrueAndCheckBox4・Value=TrueThenMsgBox“选择正确。“，vbOKOnlv,”结果”ElseIfCheckBoxl.Value=TrueOrCheckBox4.Value=TrueThenMsqBox“选对了个c”，vbOKOnlv,“提示”ElseMsqBox“

4、选择错误！正确答案是“水和T•冰”！”，vbOKOnlv,“提示“EndIfEndIf小贴上：上述代码的含义是，如果（If）选择了第1和笫4项（CheckBoxl.Value=TrueAndCheckBox4.Value=True）,按下“判断”按钮，则弹出如图3所示界浙和消息（MsqBox）框（选择错误！正确答案是“水和T冰”！一一消息内容；vbOKOnlv——消息框屮仅显示出一个“确定”按钮；提不一一消息框标题）。如果只选择了第1项或第4项，则会弹出如图所示的消息框；「纯碱讦冰其他选杼均会弹出如图所小•的消息札1.将上述命令按钮复制一份，将“Cap

5、tion”属性修改为“币;选”），再双击该按钮，将卜述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。CheckBox1・Value=FalseCheckBox2.Value=FalseCheckBox3.Value=FalseCheckBox4.Value=False7•在演示过程屮，7牛•进行相应的选择后，按卜•“判断”按钮，即町作出相丿M判断；如果认为选择冇误，按一下“重选”按钮，即可重新选择。