王章生
浙江横店影视职业学院 浙江 东阳 322118
摘要：交互式测试题是优秀课件中常用的一部分内容，其灵活性、交互性能使教学更加生动，有效提高学生的学习兴趣。本文就如何使用VBA技术制作交互式测试题进行阐述。
关键词：PowerPoint VBA 交互性
制作课件的工具有Authorware、Flash、PowerPoint等软件，其中用PowerPoint制作课件最简单，兼容性也好，深受广大老师的喜欢。针对教学内容，使用PowerPoint中的VBA功能，可以在课件中设置一些选择题来实施教学互动，由电脑直接给出评判结果，增强学习的有效性，提高学生的学习兴趣。本文就如何应用VBA技术来设计单选题、判断题、多选题、填空题交互课件展开讨论。
一、什么是VBA
VBA是Visual Basic for Application的英文缩写，它提供了完整的程序语言和面向对象的程序设计方法，提高了Office系列软件的交互性。与VB的不同的是，VBA是使已有的应用程序(Word、Mscel、PowerPoint等)自动化，并寄生于已有的应用程序中。
在PowerPoint界面中进行VBA编程有两种方式：录制宏和在Visual Basic编辑器中直接编程。如果想在PowerPoint中制作出具有较好交互功能的课件，必须采用在Visual Basic编辑器中进行编程。
二、PowerPoint控件
1、如何打开控件
要使用PowerPoint中VBA来实现课件的互动性，首先要打开“开发工具”选项卡，在默认的PowerPoint界面上是没有的，可以通过单击“文件” “选项”“自定义功能区” “开发工具” “确定”，单击“开发工具”选项卡就可以设置相关内容了。如图1所示。应用最多的是控件部分，下面就如何使用它来谈下如何在课件中制作选择题等测试题，增加教学的互动性，达到小测试之目的。
2、制作使用的常用控件：
（1）选项按钮（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（2）复选框（CheckBox）：是一个选择控件，可用于多项选择题的制作；（3）文本框(TextBox)：可以输入文本，常用来设计填空题；（4）命令按钮(CommandButton)：用来确定选择或输入，用于制作幻灯片上的按钮，还可通过按钮来改变幻灯片的播放顺序,设计超级链接；（5）标签（Label）：用于表现静态文字信息，如显示选择题、判断题的题目等。
3、控件的主要属性及设置方法
在“开发工具”选项卡中的“控件”上，可以对控件的属性进行设置。常用的属性有：AutoSize：自动调整大小与否；BackColor：设置背景颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形；Forecolor：设置字的颜色；Value：对单选按钮与复选框来说，True为选中，False则相反。使用时可以选中控件，单击“控件”上的“属性”，直接选择进行修改相关属性值即可。
三、单选题的制作
VBA 交互技术的具体设置方法分为三步骤:首先要整体考虑需要实现什么样的交互功能，以及如何实现，然后添加相应的控件；其次，对添加的控件设置相应的外观属性；最后对需要实现的功能进行程序代码的编写。
以如下图2所示为例制作单选题。
本题中选项A是正确的(其他选项正确时可相应更改提示信息)，双击“提交答案”打开VBA代码编辑窗口，输入以下代码：
If OptionButton1.Value=True then
ms=MsgBox("正确！恭喜你！",VbOKOnly)
End If
If OptionButton2.Value=True or OptionButton3.Value=True or OptionButton4.Value=True then
ms=MsgBox("错误！努力哦！",VbOKOnly)
End If
6.添加一个“命令按钮”，将属性Caption 值设置为“重做”。双击按钮，打开VBA编辑代码窗口，输入以下代码：
OptionButton1.Value=False
OptionButton2.Value=False
OptionButton3.Value=False
OptionButton4.Value=False
7.再添加三个“命令按钮”，分别将属性Caption 值设置为“上一题”、“下一题”、“退出”。双击“下一题”，打开VBA编辑代码窗口，输入以下代码：
If MsgBox("是否继续？",VbYesNo+VbQuestion,"下一题")=VbYes then
With SlideShowWindows(1).View
.Next
End With
End If
双击 “上一题”，输入代码，代码与“下一题”类似，把其中.Next改为.Previous即可，双击“退出”，输入代码，代码与“下一题”类似，把“下一题”.Next改为.Exit即可。
四、多选题的制作
以如下图3所示为例制作多选题。
操作步骤与单选题制作类似，只是将选项按钮改为复选框，希望鼠标单击命令按钮时，程序能进行以下判断：如果CheckBox2和CheckBox3的Value都为True而且CheckBox1和CheckBox4的Value都为False时则显示“答对了！恭喜你！”的消息框，否则，显示“你答错了,请重新选择！”的消息框。双击“提交答案”打开VBA代码编辑窗口，输入以下代码：
If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then
MsgBox ("答对了！恭喜你！")
Else
MsgBox ("答错了，请重新选择！")
End If
“重做”项的代码：双击按钮，打开VBA编辑代码窗口，输入以下代码：
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
五、判断题的制作
判断题的操作步骤与单选题类似，只要设计两个选项就可以了，提示的结果可以是“正确”或“√”、“错误”或 “×”。
六、填空题的制作
以如下图4所示为例制作填空题。
If TextBox1.Value = "运算器" and TextBox2.Value = "控制器" or TexstBox1.Value = "控制器" and TextBox2.Value = "运算器" Then
MsgBox ("答对了")
Else
MsgBox ("答错了，重新填写！")
End If
“重做”项代码：双击按钮，打开VBA编辑代码窗口，输入以下代码：
TextBox1.Value= ""
TextBox2.Value=""
多个的依次类推。
[参考文献]
[1]陈永强，李茜，陈海川.例学VBA——Excel/Access/PowerPoint中的VBA高效应用[m].中国铁道出版社.2010.07
作者简介：
王章生，男，汉族，1966年4月出生，讲师、职业指导师，浙江东阳人，浙江横店影视职业学院影视制作学院党总支副书记，研究方向为信息技术、学生管理与党建。
论文作者:王章生
论文发表刊物:《知识－力量》2017年9月上
论文发表时间:2017/12/25
标签：代码论文; 控件论文; 按钮论文; 双击论文; 课件论文; 下一论文; 属性论文; 《知识－力量》2017年9月上论文;