周体强

摘要：教学中引导学生用PPT控件VBA制作课件练习题，能提高课件交互性，进而提高教学效果。

关键词：PPT；课件；控件VBA；教学

PowerPoint是一个广泛应用于多媒体课件制作的软件，具有交互性的练习题制作，除了单选题能用动画触发器制作，其他题型只能用控件VBA来制作，但在PPT中它是一个难点，在教学中如何使学生更好理解和掌握此方法，下面谈谈一些做法。

1步步引导说明使用条件

⑴要添加控件，就要显示控件选项卡，即显示“开发工具”选项卡。方法：选择“文件→选项→自定义功能区→勾选‘开发工具选项→确定”。

⑵打开使用了控件VBA的PPT文件，演示用默认保存PPTX格式，软件会提示：“以下功能不能保存在未启用宏的演示文稿中.Visual Basic for Applications（VBA）项目，若要使保存的文件具有这些功能，请单击“否”，返回“另存为”对话框，然后在“文件类型”下拉框中选择一种启用宏的文件类型。是否继续将此文件保存为未启用宏的演示文稿？”，先选择“是”，再次打开演示文稿，播放可见VBA功能失效，查看VBA代码消失，说明使用控件VBA，要保存为“启用宏的演示文稿”格式。

⑶ 打开保存“启用宏的演示文稿”格式演示文稿，会显示“安全警告：部分活动内容已被禁用”并显示“启用内容”按钮。如果不启用，运行时会再次提示启用宏，不启用则VBA功能失效，单击“启用内容”VBA才能起作用。引导得出选择“开发工具/宏安全性”→选“启用所有的宏”，则不会再提示。

2类比法教学练习题的制作

⑴ 先用文本框输入题目和答案（A…、B…、C…、D…），用空格调整放置位置。

⑵ 首先单击选择控件，在相应位置（答案A或填空处）拖动鼠标绘制控件（选项按钮、复选框，填空处绘制文本框），合适位置绘制一个命令按钮。介绍相应控件功能：

文本框（Text Box）：可输入文本填空，用于设计填空题。

选项按钮（Option Button）：一组中只能选中其中一个，用于制作单项选择题或判断题。

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

命令按钮（Command Buton）：用于制作按钮，点击执行代码给出判断对错。

调整控件大小到合适（选项按钮、复选框刚好显示形状或右击选“设置控件格式”，高宽均为0.4厘米，文本框按字数），其余三个答案前控件，与A前相同，故用复制方法：选中已调整好的选项按钮、复选框，按住Ctrl键不放，用鼠标按B、C、D次序拖放到另3个答案前相应位置。

要改变控件外观，如填空和命令按钮，右击选属性，打开“属性”对话框，介绍设置属性。

Caption （单击、输入修改名称）设置对象名称，如命令按钮名称“判断”，“帮助”；

BackColor（单击下箭头、调色板）设置控件对象背景色；

ForeColor（单击下箭头、调色板）设置控件对象名称文字颜色；

Font（单击右边“…”）设置控件对象名称字体、字型和字号大小。

举例命令按钮用Caption项修改为“判断”，用BackColor项修改背景色，用ForeColor项修改字颜色，用Font修改字体大小，选中“判断”命令按钮，用鼠标拖放复制，右击选“属性”，将Caption项改为“帮助”。如果再次用到“判断”、“帮助”命令按钮，引导学生用复制得到，提高制作效率（但VBA代码要用“查看代码”再输入或复制修改）。

⑶右击判断和帮助按钮选“查看代码”，打开代码编辑窗口输入或复制粘贴代码。

单选题“判断”按钮代码：

Private Sub CommandButton1_Click（）

If OptionButton正确答案序号.Value = True Then

MsgBox "选择正确！"， 0， "结果"

Else

MsgBox "选择错误！"， 0， "提示"

End If

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

End Sub

类比教学：先分析代码中命令、条件、清空等含义，加入“判断”命令按钮代码，播放幻灯片看结果。引导学生类比多选题：选项按钮、复选框名称不同，改上OptionButton为CheckBox，判断条件不同，单选只能选中1个答案，复选题4个答案均可选择，均要判断，例如AC选中BD未选正确则判断条件如下面所示，得出多选题“判断”按钮代码：

Private Sub CommandButton1_Click（）

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

MsgBox "選择正确！"， 0， "结果"

Else

MsgBox "选择错误！"， 0， "提示"

End If

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

End Sub

类比教学：选项按钮、填空题名称不同，改上OptionButton为TextBox，判断条件不同，选择题用选中True未选False，填空有填的内容用“答案”，清空只有一个，改False为""，得出填空题“判断”按钮代码：

Private Sub CommandButton1_Click（）

If TextBox1.Value = "答案" Then

MsgBox "填写正确！"， 0， "结果"

Else

MsgBox "填写错误！"， 0， "提示"

End If

TextBox1.Value = ""

End Sub。

单选题、多选题、填空“帮助”按钮代码如下所示，只要改“答案”相应内容：填空为正确答案文字，选择题为正确答案序号（A、B、C、D）。

Private Sub CommandButton2_Click（）

MsgBox "正确答案为：答案"， 0， "提示"

End Sub

3 结束语制作单选题、多选题和填空题，均为三个步骤：用文本框输入题目和答案；添加控件设置属性（更改外观）；命令按钮添加VBA代码（用于对错的判断）。复制法用在制作多个相同控件和多次要制作“判断”“帮助”命令按钮，简化制作设置时间，通过类比复制代码后修改不同部分，使用学生容易理解并提高制作效率。