用PowerPoint做多种类型的交互练习题

　　一、用到的控件属性

　　先点击PowerPoint左上角“Office选项”按钮，在弹出的菜单中点击右下角“PowerPoint选项”按钮，在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。完成后就可以在功能区添加“开发工具”选项卡了。

　　点击“开发工具”选项卡，“控件”功能组中相关按钮就是我们要用的主要控件了，如图1所示。

　　以单选框为例，点击该单选框按钮，然后在幻灯片上单击，就可以产生一个单选项。选中它，点击右键，在弹出菜单中选择“属性”命令，或者点击“开发工具”选项卡“控件”功能组中“属性”按钮，可以打开“属性”对话框。在其中的“Caption”输入框中输入我们所需要的内容，就可以做出适合我们的单选项了。

　　单击“BackStyle”项目，然后在右侧的下拉列表中选择“0-fmBackStyleTransparent”，可以使做出的单选项背景透明。点击“Font”输入框，然后单击出现的按钮，可以设置字体、字号等格式。点击“Forecolor”输入框，则可以设置颜色。如图2所示。

　　其它几个控件“属性”设置基本与此类似，不再罗嗦。

　　二、单项选择题

　　题目的题干部份可以用插入文本框的方法输入。然后用单选框做好四个选项。可以在做好一个以后，复制得到其它三个。只需要修改属性中的“Caption”即可。完成后，按住“Shift”键依次选中它们，然后点击功能区“开始”选项卡“绘图”功能组中“排列”按钮下的小三角形，在弹出的菜单中选择相应命令将它们对齐并分布均匀，如图3所示。

　　现在我们选中代表正确答案的那个单选项“B:矛盾分析的方法”，点击右键，在弹出菜单中选择“查看代码”命令，在打开的窗口中找到“Private Sub OptionButton2_Click()”和“End Sub”两段代码。在这两段代码中间插入代码：

　　MsgBox ("恭喜您，答对了!")

　　OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False

　　关闭窗口，然后运行一下幻灯片，点击选项B试试，结果不错吧?如图4所示。

　　代码的第一句是设置提示框及提示信息的。而第二句代码则是在单击B选项后使其它各选项恢复到未选中状态。“OptionButton*”(*为1、2、3、4)分别表示我们制作出的四个单选项。它是以单选项制作顺序排列的。在“属性”对话框的“名称”处可以查到它。

　　我们可以照着葫芦画瓢，给其它的三个选项也设置上类似的提示框。要注意提示信息及第二句代码中相应数字的调整。

　　三、是非判断题

　　是非判断题可以看成只有两个选项的单项选择题。所以，其做法与单项选择题是一样的。只是在最后添加的代码稍加修改即可。

　　四、多项选择题

　　多选题需要用到复选框。假定有四个选项，其中只有A、B、D三项全选才为正确，多选或少选均为错误。

　　用前面的方法插入四个复选框，调整好位置。再插入一个命令按钮，打开“属性”对话框，将“Caption”值设为“答案”。选中“答案”按钮，在右键菜单中选择“查看代码”命令，打开代码编辑窗口。在窗口中找到如下两句代码：

　　Private Sub CommandButton1_Click()

　　End Sub

　　在这两句代码中间插入以下代码：

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

　　MsgBox "厉害，答对了!", vbOKOnly, "多项选择题"

　　Else

　　MsgBox "不好意思，您做错了。再仔细想想?", vbOKOnly, "多项选择题"

　　CheckBox1.Value = False

　　CheckBox2.Value = False

　　CheckBox3.Value = False

　　CheckBox4.Value = False

　　End If

　　如图5所示。放映幻灯片试试，如果出错，呵呵，那就如图6所示效果，弹出一提示框进行提示。

　　仔细读一下代码不难发现，其实是做了一个判断：如果第1、2、4个复选框均为选中状态的话，就弹出一个表示答对的提示框，否则就弹出一个答错的提示框，并将所有复选框的选中状态消除，以便再次选择。

　　五、填空题

　　先做好题目，制作一条短横线表示填空区。点击“开发工具”选项卡中的“文本框”控件，然后拖出一个大小合适的文本框。调整其位置至合适。仍然打开其“属性”对话框，设置其相关的属性，比如字体格式等。这与前面的介绍基本一致，可参照操作。

　　选中做好的文本框，打开代码编辑窗口，还是先找到这两句代码：

　　Private Sub TextBox1_Change()

　　End Sub

　　在两句中间插入如下代码：

　　If TextBox1.Value = "电脑" Then

　　MsgBox "不错，你填对了!", vbOKOnly, "填空题"

　　Else

　　MsgBox "不对吧?再想想!", vbOKOnly, "填空题"

　　TextBox1.Text = ""

　　End If

　　其中“电脑”是正确的答案。如果在文本框中填入了“电脑”，那么就会弹出正确的提示，反之会弹出错误提示并清除已填写内容。这就是这段代码的含义。

　　放映一下试试，是不是可以填入答案并做出相应的反馈啊?效果如图7所示。

　　好了，先这么多吧。好好利用控件和VBA代码，可以完成一些看起来不那么容易完成的事情呢!