教师在每节课结束前，习惯留几道习题让学生们自行练习，以巩固当堂课所学的知识。如果只是用Word或PowerPoint展示给同学们，那是不是显得过于呆板呢？同学们也兴趣不高，其实我们完全可以利用Word的VBA功能，让这些练习具有交互功能，从而提高同学们的兴趣。下面，我们就来看一下如何制作可以判断答案正确与否的多项选择题的过程。

1.启动Word，新建一空白文档，输入如图1所示的“计算机的软件系统包括（ ）”并根据情况设置好字体、字号和颜色。

2.依次单击菜单栏中的“视图→工具栏→控件工具箱”命令，在dan出的控件工具箱中选中“复选框”按钮 ，然后在文档拖拉出一个复选框。

3.在拖拉出的复选框（checkbox1）上单击鼠标右键选择属性，打开“属性”对话框，将其中“名称”修改为“duoxt11”，“Caption”后面的字符修改为题目相应选项字符（如“系统软件”），然后再设置“font”选项设置合适的字体、字号等。其他属性可采用默认值。

4.将上面设置好的复选框复制三个，分别将“名称”修改为“duoxt12”、“duoxt13”、“duoxt14”，“Caption”属性分别修改为“应用软件”、“杀毒软件”和“工具软件”。

5.选择“控件工具箱”的“命令按钮” ，在文档中添加一个按钮，和上面3中的操作一样将其“名称”修改为“duopd11”，“caption”属性修改为“判断”（也可以修改“font”属性来设置字体、字号等）。然后双击该按钮，进入“VisualBasic编辑器”状态，将下述代码输入到Private Sub Private Sub duopd11_Click()和End Sub代码中间，输入完成后，关闭窗口返回。

If duoxt11.Value = True And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

MsgBox "恭喜你，选择正确。", vbOKOnly, "结果"

Else

If duoxt11.Value = True And duoxt12.Value = False And duoxt13.Value = False And duoxt14.Value = False Or duoxt11.Value = False And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

MsgBox "选对了一个，还有一个，再努力一下就胜利了。", vbOKOnly, "提示"

Else

MsgBox "选择错误！还需要继续努力啊！", vbOKOnly, "提示"

End If

End If

上述代码含义是如果选择第一项和第二项并且第三和第四项不选时，按下判断按钮则dan出“恭喜你，选择正确”消息框，如果仅仅选择了第一项或第二项则dan出“选对了一个，还有一个再努力一下就胜利了。”消息框，如果选择了第三或第四项中的任何一项都会dan出“选择错误！还需要继续努力啊！”消息框。

6.将命令按钮复制一份，将其“名称”修改为“duopd12”，“caption”属性修改为“重选”，双击该按钮，进入“VisualBasic编辑器”状态，将下述代码输入到Private Sub duopd12_Click()和End Sub代码中间，输入完成后，关闭窗口返回。

duoxt11.Value = False

duoxt12.Value = False

duoxt13.Value = False

duoxt14.Value = False

现在单击“控件工具箱”中的“退出设计模式”按钮 关闭“控件工具箱”。（可一定要记住啊，否则不会出现效果的。）

一个多项选题就做好了，同学们这样就可以在做题的过程中随时来查看做题的结果了。