在powerpoint中引入vba技术制作交互式多媒体教学课件

《在powerpoint中引入vba技术制作交互式多媒体教学课件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在Powerpoint中引入VBA技术制作交互式多媒体教学课件　　摘要：课堂教学中使用的交互式多媒体教学课件.可以引导学生建立对所学课程的学习兴趣[1]。该文在Powerpoint中引入VBA[2]技术，使得在Powerpoint中就可以制作人机交互式的多媒体课件。在作答选择题、填空题和判断题等客观练习题时，题目和答案存放在文本文件中，Powerpoint读取文本文件中的题目显示在幻灯片中，用户在幻灯片中作答后，Powerpoint比较用户的答案和从文本文件中读取的标准答案比较，根据正确与否作出相应的反应。用此方法制作的多媒体课件可以在

2、一张幻灯片中做无数多的题目，其它课件使用时只需要复制这张幻灯片、修改文本文件中的题目和答案即可。此方法是对教育教学改革的一项创新，对制作高质量教学课件起着很重要的作用。关键词：Powerpoint；VBA；交互式；多媒体课件；教学改革；教学课件中图分类号：G642.0文献标识码：A文章编号：1009-3044（2014）05-1063-035随着计算机应用的逐渐普及，多媒体辅助教学已经成为课堂教学的一个重要部分[3]，多媒体教学起到了越来越重要的作用，多媒体教学课件的制作成为教学和讲演的必备环节，也涌现了众多多媒体课件制作软件。Offi

3、ce家族中Powerpoint软件凭借其易用性、方便性，在教学中仍旧起着很重要的作用，到目前为止，大部分的教学课件仍旧是用Powerpoint制作的。然而，Powerpoint在交互式多媒体课件制作方面存在欠缺，虽然可以通过按某个动作按钮或者单击某个链接跳到另一张幻灯片，但并不能根据用户的输入来判断应该显示那张幻灯片，即不具有判断功能。另外，多个题目可能需要制作很多张幻灯片；题目一变，幻灯片需要重新制作。为了弥补这个不足，该文将VBA技术引入到Powerpoint中，使得仅使用一张幻灯片，就可以使幻灯片具有判断功能，也可以在一张幻灯片上

4、作答很多练习题目。1填空题和判断题的交互式处理填空题和判断题的交互式处理是类似的，判断题可以看作是特殊的填空题，只不过答案只有“对”和“错”两种。这两种题目都需要幻灯片具有判断功能，需要判断用户输入的信息和标准答案是否相同。如果不相同，显示如图1所示的信息，下面显示“错误”图标、显示“错误”文本框提示并用“错误”声音显示；如果相同，则显示如图2所示的信息，下面显示“正确”图标、显示“正确”文本框提示并用“正确”声音显示。图1输入错误时的画面5在Powerpoint幻灯片中使用控件工具箱中的文本框工具设计两个文本框，上面一个用于用户输入信

5、息，下面一个用于显示标准答案。使用控件工具箱中的图像工具设计2个图像对象，用于存放“正确”和“错误”图标。使用控件工具箱中的命令按钮工具设计5个按钮，“Init”按钮用于初始化操作，先判断存放题目和标准答案的文本文件是否存在，如果不存在，给出文件不存在的错误提示信息，如果存在，则初始化按钮控件和图像控件的可见性属性，清空两个文本框控件，读取文本文件中的第一个题目显示到幻灯片中。“Next”和“Prior”按钮分别从文本文件中读取“下一个”和“上一个”题目，显示到幻灯片中，读取时要判断题目是否是最后一道或第一道以便显示对应的信息给用户。“

6、Check”按钮用于检查用户输入的信息和标准答案是否相同，不相同进行“错误”处理，显示图1所示的信息；相同进行“正确”处理，显示图2所示的信息。“DisplayAnswer”按钮从题目文本文件中读取标准答案显示在下面的文本框控件中，如图3所示。图3显示题目的标准答案2选择题的交互式处理5选择题也需要幻灯片具有判断功能，需要判断用户选择了那个按钮，选择的选项是否正确。如果正确，显示如图4所示的信息，下面显示“错误”图标、显示“错误”文本框提示并用“错误”声音显示；如果错误，则显示如图5所示的信息，下面显示“正确”图标、显示“正确”文本框提

7、示并用“正确”声音显示。在Powerpoint中使用控件工具箱中的命令按钮工具设计7个按钮，“Init”按钮、“Next”和“Prior”按钮和填空题的基本类似。“A”、“B”、“C”和“D”四个按钮用于供用户选择的四个选项，选择后判断用户选择的选项和标准答案是否一致，不一致进行“错误”处理，显示图4所示的信息；一致进行“正确”处理，显示图5所示的信息。图4选择错误时的画面图5输入正确时的画面3关键的实现细节无论是填空题、判断题还是选择题都需要进行“正确”处理和“错误”处理，都需要显示提示信息和图标，并进行声音提示。后面的代码以填空题为

8、例进行说明，判断题和选择题的代码类似。进行“正确”处理的关键代码如下：Image1.Visible=TrueImage2.Visible=False5CallPlayWavFile（strFilePath&