使用控件制作PPT课件交互练习题

陈亚天

[摘 要]很多人使用PowerPoint制作PPT课件，却因不熟悉编程而不能发挥PowerPoint强大的功能，本文简单介绍PowerPoint2003中常用控件及VBA知识，通过制作单选题、多选题和填空题等案例，让大家能迅速掌握并制作出具有交互功能的PPT课件练习题。

[关键词]PowerPoint2003 PPT课件 控件 VBA

[中图分类号] G484 [文献标识码] A [文章编号] 2095-3437（2013）07-0054-02

自1990年微软（Microsoft）的PowerPoint问世后，这款软件在国内被越来越多的教育工作者使用，在信息化教育大环境推动下，很多人提倡使用多媒体课件开展教育活动。因为PowerPoint上手容易，成为大多数教师制作课件的首选。使用中，很多老师对幻灯片的基本操作以及文字、图片、音视频等素材的编排都比较熟悉，但制作具有交互功能的练习题却感到很棘手。利用PowerPoint中的编程虽可以实现，但很多人担心编程难以掌握而望而却步。事实上并不需要太多的专业编程知识，利用PowerPoint自带的控件，配合一些简单的语句就可以实现PPT课件强大的交互功能。

一、PowerPoint中的控件及VBA的简单知识

在Microsoft Office系列软件中，提供了一组这样的工具，称为控件（亦称ActiveX控件），可以使用它在PowerPoint演示文稿中控制一组预定义的事件（或执行一段程序代码）来达到我们需要的目的。在Powerpoint（以2003为例）中选择菜单“视图-工具栏-控件工具箱”，如图1。

（一）常用的控件

文本框（TextBox）：可输入文本，可形成滑动条展示于大量的文字，亦可用于设计填空题；

命令按钮（CommandButon）：用于制作按钮，常通过点击后执行一定的代码；

选项按钮（OptionButton）：通常一组使用，只能选中其中一个，可用于制作单项选择题或判断题；

标签（Label）：用于表现静态文字信息，如显示选择题、判断题的题目等

复选框（CheckBox）：是一个选择控件，可用于多项选择题的制作。

（二）控件中常涉及的属性

以命令按钮为例，在控件工具箱中选择命令按钮，鼠标变成十字形，在页面上点击或拖拉会出现一个“CommandButton1”的按钮，右击鼠标，选择“属性”，弹出一个属性窗口，如图2。其中常用的参数有：

名称——控件默认名，一般不作修改，如果修改，会影响到VBA中的对象名称；

Caption——控件显示名，如将Caption后面的CommandButon1改成确定，我们将发现页面上命令按钮的文字就变成了确定；

Font——用于设置控件显示名的字体、大小等；

BackColor——设置按钮背景色；

Height、Left、Top、Width——用于设置命令按钮的位置及大小；

Picture——可导入图片作为命令按钮的背景图。

（三）VBA简介

VBA是Visual Basic for Application的简写，它以应用程序开发语言VISUAL BASIC语言为基础，经过修改并运行在Microsoft Office的应用程序，可以使这些应用程序（PowerPoint、Excel等）自动化，极大地增加Office系列软件的交互性。在PPT中，对于控件如果不添加代码，控件的使用价值将大大降低。

仍以命令按钮为例，双击页面中的命令按钮，页面将跳转到VB的编辑界面，如图3。如果我们在光标默认闪烁行中添加代码，就意味着PPT放映中点击命令按钮后，将执行添加的程序代码。

二、使用控件制作PPT课件中交互练习题

（一）PPT课件中的单选题

在PPT页面上利用普通的文本框输入题干，插入4个选项按钮控件（OptionButton），将属性里面的Caption修改为选择项内容，具体如图4。将题干和选择项位置调整合适位置。双击第一个选择按钮控件进入VB编辑界面，可看到有OptionButton1-4四个对象，对OptionButton1、OptionButton2分别输入：

Private Sub OptionButton1_Click（）

MsgBox （"错误"）

End Sub

以及Private Sub OptionButton2_Click（）

MsgBox （"正确"）

End Sub

其余2个选择按钮的代码操作类似OptionButton1代码的输入。

运行PPT，点击B选项，会跳出“正确”的提示框，点击其他选项，会跳出“错误”的提示框。当然我们还可以将上面的代码进行修改，将“错误”的文字换成其他文字，运行时可显示其他的提示文字。

（二）PPT课件中的多选题

多选题设置类似单选题，不过插入的是复选框（CheckBox）控件，并添加一个命令按钮控件，具体如图5。进入VB编辑界面后，此处主要编辑CommandButton1对象代码，输入如下代码：

Private Sub CommandButton1_Click（）

If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True And CheckBox5.Value = False Then

MsgBox （"正确"）

Else： MsgBox （"错误"）

End If

End Sub

该例中CheckBox1.Value=Ture表示该复选框被勾选，如未选，系统默认CheckBox1.Value=False，因为答案是ABCD，E是错误的，所以要强调CheckBox5.Value = False，代码才能判断正确的选择项。

（三）PPT课件中的填空题

选择文本框控件插入，并添加一个命令按钮，如图6。进入VB编辑界面，选择文本框控件，注意事件为change，输入如下代码：

该例中因为“秦观”“秦少游”都是正确答案，所以要考虑到这一点。当然我们也可以对文本框控件不编辑代码，另增加一个命令按钮，将粗体代码添加在命令按钮控件的Click事件中，运行时输入文字不会有任何变化，只有通过点击命令按钮给出答案的判断或提示。

[ 参 考 文 献 ]

[1] 北京博彦科技开发有限责任公司. Offce VBA编程高手[M].北京大学出版社，2000，（12）.

[2] 网冠科技.Visual Basic 6.0控件时尚编程百例[M].机械工业出版社，2001.

[责任编辑：陈 兵]