基于VBA和ActiveX测试课件的设计与实现

郭 晴

(山西大学 商务学院信息中心,太原 030031)

基于VBA和ActiveX测试课件的设计与实现

郭 晴

(山西大学 商务学院信息中心,太原 030031)

随着多媒体课件制作技术的不断发展，交互式课件具有强大的交互性、灵活性和可扩展性，其独特的优势，在教与学的过程中日显突出，越来越受到广大师生的青睐。能否制作具有功能强大的交互式课件，已成为又一个衡量教师信息化素养的指标。文中以制作测试课件为例，详细分析了利用ActiveX和VBA技术在PPT中实现智能交互的步骤、方法与技巧，为多媒体课件的开发与完善提供有益的参考。

测试课件；VBA技术；ActiveX控件；交互

高等教育现代化、信息化的不断推进，教学理念、教学方法的不断革新，实用高效的教学课件越来越受到推崇。PPT因操作简便、实用性广、表现力强而一直主导着多媒体教学课件的制作。利用ActiveX控件和VBA技术制作的交互式课件，具有较好的交互性和灵活性，使教学表达呈现多样化，更好地满足教与学的需求。以笔者实践中测试课件为例，在教学过程中，学习主动性增强，教学效果显著提升。

1 测试课件的重要性

从教学需求的角度，教学过程中定期对学习内容进行考核，有利于阶段性地检测学生对学习内容、操作技能的掌握水平，及时发现教学过程中存在的问题并予以纠正。增强学生学习主动性的同时，教师的知识水平和业务能力也得以提升，切实的做到教学相长。

从高等教育发展的角度，测试课件的开发与应运，可以满足教学与自主学习型、训练复习型课件的需求[1]，无疑是信息化、网络化推进的具体表现。测试课件具有良好的扩展性，无论课上与课下都能很好地调动学生的学习兴趣，方便知识内容的巩固与延展。

2 VBA与ActiveX控件

ActiveX控件是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型(COM)，是一种可重用的软件组件。很多情况下，不需要自己编程，就可以完成相关应用程序的设计[2]。

VBA是Visual Basic for Application的简写，它是Microsoft Office系列软件的内置编程语言，是应用程序开发语言VB(Visual Basic)的子集。它以VB语言为基础，经过修改并运行在Microsoft Office，它功能强大，面向对象，可极大地增加Office系列软件的交互性[3]。

将VBA技术与ActiveX控件相结合应运到PPT中，可制作交互性和扩展性很强的测试课件。主要制作的有选择、判断、填空等各类客观题。

3 课件的设计与制作

3.1 构建效果图

通常好的设计者在制作课件前都先草建一个效果图，以便制作过程中有一个参考和比较。本例效果图如图1、图2和图3所示。

图1 测试主页

图2 选择题测试页

图3 最终得分页

3.2 制作流程图

一个完好的制作流程图，便于设计者了解课件整体制作思路，对制作过程全方位把控。本例纵向步骤为制作的主流程，横向为主流程中某些步骤包含的分支流程。如图4所示。

图4 制作流程

3.3 制作试题内容

本例测试内容分为单项选择和填空两类，分别制作在单独的演示文稿中，通过试题主页的链接而进入。

3.3.1 选择题

每道选择题分为两部分，题目部分用文本框输入，选项部分则用选项按钮控件来完成。具体操作如下；

(1)新建一张“空白”的幻灯片，在其中插入一文本框输入题目内容并设置。

(2)单击功能区中的[开发工具]→[控件]→[选项按钮]，在幻灯片中绘制，并右击选择[属性]命令，设置其Caption属性为“A.按Ctrl+S组合键快速保存”。

(3)按照同样的方法，再添加其他三个选项按钮并设置。

(4)新建一张幻灯片，输入“恭喜您，以完成全部答题”“最终得分”文本内容，并进行样式的设置(如效果图3)。最后将其保存，名称“选择题”，文件类型为启用宏的PPT演示文稿。

3.3.2 填空题

本例中的填空题如纸质试卷中的样式，用文本框来输入题目，文本框控件作为答题者输入答案的空间，具体操作如下。

(1)使用重用幻灯片功能可以提高制作效率[4]。新建一个演示文稿并将默认幻灯片删除。单击功能区[开始]→[幻灯片]→[新建幻灯片]命令，在打开的列表中点击[重用幻灯片]，选择“选择题.pptm”，并选中[保留源格式]，将所需进行重用，之后只对题目内容进行修改即可。

(2)单击功能区[开始]→[控件]→[文本框]按钮，将其拖放至填空题中下划线的上方，并右击选择[属性]命令，将BorderStyle属性设置为[0-frmBorderStyleNone],隐藏文本框控件的边框。再将TextAlign属性设置为[2-fmTextAlignCenter]，将文字居中。

(3)最后将其保存，名称“填空题”，文件类型为启用宏的PPT演示文稿。

3.4 编写代码实现自动出题与评分

为了让测试课件自动出题，且能够根据所选择的答案而自动判断正确与否，并对回答正确的答题累计分数，就需要编写VBA代码来实现。

3.4.1 编写选择题代码

设计思路：当选择了某个选项后，通过单击[提交答案]按钮，提示回答是否正确并进入下一题，回答完所有题目，单击[最终得分]按钮来查看自己的得分，并自动退出答题环境。具体代码如下：

(1)声明一个公有变量[5]Score记录得分情况。打开名为“选择题.pptm”演示文稿，按Alt+F11组合进入VBA编辑窗口，单击 [插入]→[模块]命令，单击插入的模块，在下方的[属性]中将[名称]改为My。双击[属性]窗格上方的工程资源管理器中的My打开模块代码窗口输入：Public Score As integer。

(2)双击工程资源管理器中选择题所在幻灯片(本例Slide1)，打开代码窗口输入：

Sub xuanze1()

My.Score = 0

Select Case True

Case OptionButton1.Value

MsgBox "您答错了"

Case OptionButton2.Value

MsgBox "您答错了"

Case OptionButton3.Value

MsgBox "您答对了"

My.Score=My.Score + 10’每答对一题加10分

Case OptionButton4.Value

MsgBox "您答错了"

End Select

SlideShowWindows(1).View.Next’自动退出幻灯片放映状态

End Sub

(3)编写计分功能，在标准模块代码窗口输入：

Sub defen()

MsgBox "您的得分是：" & Score

SlideShowWindows(1).View.Next

End Sub

(4)代码编写完后，还要将各幻灯片中的按钮与相应的代码进行关联。从VBE环境切换到第一张幻灯片，单击“提交答案”按钮边框，单击功能区[插入]→[链接]→[动作]按钮，打开[动作设置]对话框，选中[运行宏]并从下拉列表中选择对应的宏的过程名(Slide1.xuanze1)即可。将第2张幻灯片中的按钮链接到名为“得分”的宏。

3.4.2 编写填空题代码

填空题的设计思路与选择题相同，编写方法也类似，只需判断文本框控件中输入的内容与指定内容是否相同即可。代码编写及操作除填空题模块不同外，得分等模块代码与操作均相同。本例中Slide1的代码如下：

Sub tiankong1()

My.Score=0

If TextBox1.Text="1" Then’该空答案为1，且为文本型

MsgBox"您答对了": My.Score=My.Score+10

Else

MsgBox"您答错了"

End If

SlideShowWindows(1).View.Next

End Sub

完成代码编写后，剩下的工作就是将按钮与宏链接起来，即将第1张幻灯片中的按钮链接到名为“Slide1.tiankong1”的宏，第2张中的按钮链接到名为“得分”的宏。

3.5 制作试题主页

完成各部分试题内容的制作后，还需要在单独的演示文稿中制作试题主页。即在测试时，直接启动试题主页演示文稿，然后选择需要的试题类型，并直接打开进行作答。不仅方便课件制作者统一制作管理不同类型的试题，还方便答题者按需选取。具体操作如下：

(1)新建一个演示文稿，输入“请选择题库类型”“选择题”“填空题”“退出”类似于目录的文本内容，并对其进行相关设置，如效果图1中所示。

(2)为目录文字设置超链接，方法不再赘述。只以本例而言，“选择题”超链接到名为的演示文稿，“填空题”超链接到“填空题.pptm”。

(3)在单击文字“退出”时，希望退出演示文稿的放映状态，超链接没有结束放映这项设置，所以将对其进行动作设置。单击功能区[插入]→[链接]→[动作]按钮，打开[动作设置]对话框，选中[超链接到]单选按钮，下拉列表中选择[结束放映]，将此演示文稿保存为“试题主页.pptx”。至此，本例测试课件的设计与制作全部完成。

通过上述案例展示了ActiveX和VBA技术在PPT制作测试课件中的运用，然而程序的设计算法不同，代码的精简程度也不一样 ，系统的运行效率也不同。因此，需要我们每个制作者继续不断地深入探索研究，以期简单高效的设计制作方法。

4 结束语

引入交互性，改变了课件的结构形式和表现方式，提高了课件的设计水平和应用价值，为加强课件的演示效果开辟了广阔的空间[6]。充分利用PowerPoint的ActiveX 控件和VBA技术，制作交互性和动态性强的高品质课件，无疑是一条捷径。希望通过本文的介绍，广大教师不再将交互式课件的设计视为畏途，能顺利开发出符合教育教学需求、功能强大的各类课件，进一步推进现代教育的进程。

[1]张春明.如何利用PowerPoint实现交互[J].电脑开发与应用，2012(11):57-59.

[2]李燕梅.基于ActiveX控件的PowerPoint练习型课件制作[J].电脑知识与技术,2013(27):6150-6152.

[3]叶永机.PowerPoint多媒体交互课件制作(百度文库)[EB/OL].(2010-06-20).http://wenku.baidu.com/view/3e5d470203d8ce2foo6623d1.html.

[4]王春生.浅论交互式多媒体教学课件的设计[J].重庆科技学院学报:社会科学版，2011(8): 184-186.

[5]高轶俊.PowerPoint课件中如何制作单选题和多选题[J].中小学电教,2010(12):3-4.

[6]纪宏伟.基于ActiveX和VBA的PPT课件交互设计与实现[J].中国教育信息化，2011(16):63-65.

Design and Implementation of Test Courseware Based on VBA and ActiveX

GUO Qing

(Information Center College of Business,Shanxi University,Taiyuan 030031, China)

With the continuous development of the multimedia class production technology, interactive courseware has strong interactivity, flexibility and extensibility. Its unique advantages in the process of teaching and learning have

the favor from many teachers and students. Whether has the powerful interactive courseware, has become another index of teachers’ information literacy. To test the courseware as an example, this paper analyzed in detail using the ActiveX and VBA technology in PPT intelligent interactive steps, methods and skills, for the development and improvement of the multimedia courseware to provide the beneficial reference.

test courseware；VBA technology；ActiveX control；interaction

2014-11-06；修改日期: 2014-11-20

郭 晴(1979-)，女，硕士，实验师，研究方向：计算机基础、多媒体课件技术与软件开发。

TP39；G642.4

A

10.3969/j.issn.1672-4550.2014.06.016