论文部分内容阅读
在众多的课件类型中，练习与测验类课件是比较重要的一种类型。该类课件的安排十分灵活，可以穿插在课堂的讲课过程中，在讲完一个知识点后，出一两道相关的测验题，考考学生对知识点的掌握程度；也可以把练习与测验类课件作为一个独立的部分，制作成为一个完整的课件，专门作课堂和课后的练习。
练习与测验类课件最重要的特征是交互性。学生在答题的时候得到反馈信息，可以调动学生的积极性。本文将介绍一种利用ActiveX控件和VBA制作一个单项选择题智能课件的方法。
所谓VBA就是Microsoft Visual Basic的宏语言版本（用于编写Windows应用程序），它是Visual Basic for Applications的英文缩写。将ActiveX控件插入到幻灯片中，然后用VBA编写程序控制这些ActiveX控件，从而达到需要的交互效果。具体制作过程如下：
1 创建测验题目内容
1.1 新建幻灯片文档
新建1个空白幻灯片文档，设计模板采用Expedition效果，插入1个艺术标题——“单项选择题”。
1.2 创建题目文本框
插入5个水平文本框，在1个文本框中输入单选题题目，在另外4个文本框中输入4个备选答案，将其对齐放在合适的位置。
2 创建选项按钮
2.1 插入选项按钮控件
单击“控件工具箱”中的“选项按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建1个选项按钮。
2.2 设置选项按钮控件属性
保持选项按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，在这个对话框中可以设置选项按钮的各种属性。这里主要设置Caption、Font、Value这3个属性的值：Caption属性值确定选项按钮旁边的文字信息，这里设置为“A.”；Font属性值确定选项按钮旁边的文字格式，可以根据情况进行设置，使得整体的文字内容协调；Value属性值确定选项按钮是否是默认的选中状态，它有2个值，一个是True（默认处于选中状态），另一个是False（不是默认的选中状态），这里将Value属性值设置为False。
2.3 复制单选按钮控件
将上面创建的选项按钮再复制出来3个复本，然后分别将这3个副本选项按钮的Caption属性值更改为“B.”“C.”“D.”。接着将这4个选项按钮对齐放置在相应的4个备选答案文字左边合适的位置（如图1所示）。
3 编写VBA程序
3.1 编写正确答案对应的选项按钮的VBA程序
本实例的第1个备选答案是正确答案。双击这个备选答案前面的选项按钮，打开Mircrosoft Visual Basic窗口，在代码编辑窗口中找到以下代码：
Private Sub But1_Click()
End Sub
然后输入：
If But1.Value = True Then ex = MsgBox("选择正确！恭喜你！", vbOKOnly)
代码输入完成后的结果如图3所示。
单击“控件工具箱”中的“按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建一个合适大小的按钮。
保持按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，将Caption属性值设置为“重新选择”（效果如图5所示）。
4.2 编写“重新选择”按钮的VBA程序
双击“重新选择”按钮，在打开的代码编辑窗口中的“Private Sub CommandButton1_Click()”和“End Sub”代码间输入：
But1.Value = False
But2.Value = False
But3.Value = False
But4.Value = False
至此为止，该课件实例制作完成，可以点击观看课件播放效果。
练习与测验类课件最重要的特征是交互性。学生在答题的时候得到反馈信息，可以调动学生的积极性。本文将介绍一种利用ActiveX控件和VBA制作一个单项选择题智能课件的方法。
所谓VBA就是Microsoft Visual Basic的宏语言版本（用于编写Windows应用程序），它是Visual Basic for Applications的英文缩写。将ActiveX控件插入到幻灯片中，然后用VBA编写程序控制这些ActiveX控件，从而达到需要的交互效果。具体制作过程如下：
1 创建测验题目内容
1.1 新建幻灯片文档
新建1个空白幻灯片文档，设计模板采用Expedition效果，插入1个艺术标题——“单项选择题”。
1.2 创建题目文本框
插入5个水平文本框，在1个文本框中输入单选题题目，在另外4个文本框中输入4个备选答案，将其对齐放在合适的位置。
2 创建选项按钮
2.1 插入选项按钮控件
单击“控件工具箱”中的“选项按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建1个选项按钮。
2.2 设置选项按钮控件属性
保持选项按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，在这个对话框中可以设置选项按钮的各种属性。这里主要设置Caption、Font、Value这3个属性的值：Caption属性值确定选项按钮旁边的文字信息，这里设置为“A.”；Font属性值确定选项按钮旁边的文字格式，可以根据情况进行设置，使得整体的文字内容协调；Value属性值确定选项按钮是否是默认的选中状态，它有2个值，一个是True（默认处于选中状态），另一个是False（不是默认的选中状态），这里将Value属性值设置为False。
2.3 复制单选按钮控件
将上面创建的选项按钮再复制出来3个复本，然后分别将这3个副本选项按钮的Caption属性值更改为“B.”“C.”“D.”。接着将这4个选项按钮对齐放置在相应的4个备选答案文字左边合适的位置（如图1所示）。
3 编写VBA程序
3.1 编写正确答案对应的选项按钮的VBA程序
本实例的第1个备选答案是正确答案。双击这个备选答案前面的选项按钮，打开Mircrosoft Visual Basic窗口，在代码编辑窗口中找到以下代码：
Private Sub But1_Click()
End Sub
然后输入：
If But1.Value = True Then ex = MsgBox("选择正确！恭喜你！", vbOKOnly)
代码输入完成后的结果如图3所示。
单击“控件工具箱”中的“按钮”控件按钮，这时光标变成“十字”形状，在幻灯片工作区拖动鼠标创建一个合适大小的按钮。
保持按钮的选中状态，单击“控件工具箱”中的“属性”按钮，打开“属性”对话框，将Caption属性值设置为“重新选择”（效果如图5所示）。
4.2 编写“重新选择”按钮的VBA程序
双击“重新选择”按钮，在打开的代码编辑窗口中的“Private Sub CommandButton1_Click()”和“End Sub”代码间输入：
But1.Value = False
But2.Value = False
But3.Value = False
But4.Value = False
至此为止，该课件实例制作完成，可以点击观看课件播放效果。