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

lse

　　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代码，可以完成一些看起来不那么容易完成的事情呢!