如何在office 2010的Word中使用Word VBA制作选择题？office 2010的Word功能强大，使用office 2010的Word的朋友都知道，Word中的VBA功能可以使Word文档具有交互功能，在学校教学中，老师们就就是利用Word VBA功能在Word文档中制作具有交互功能的选择题的.今天小编就以使用Word2003制作双项选择题Word文档为例，为大家介绍在office 2010的Word中使用Word VBA制作选择题的方法与步骤，欢迎大家来学习研究.
第1步，新建一个空白Word文档，输入选择题的题目部分，如“一台完整的计算机系统包括( )”，然后根据实际情况设置字体、字号，如图所示.
第2步，在菜单栏依次单击“视图”→“工具栏”→“控件工具箱”菜单命令，打开“控件工具箱”.将光标定位到题目下一行的合适位置，然后在“控件工具箱”中单击“复选框”按钮，如图所示.
第3步，右键单击添加的复选框控件(checkbox1)，在打开的快捷菜单中选择“属性”命令，如图所示.
第4步，打开控件“属性”对话框，将“名称”修改为“DaAn1”，并将“Caption”属性后面的字符修改为相应选项(如“A.硬件系统”)，如图所示.
第5步，在“属性”对话框中双击“Font”属性选项，在打开的“字体”对话框中为答案设置字体、字号和颜色，其它属性保持默认设值，如图所示.
第6步，将刚才添加的复选框再复制三个，并分别修改其属性(如“名称”分别修改为“DaAn2”、“DaAn3”、“DaAn4”，“Caption”属性分别修改为“B.系统软件”、“C.软件系统”、“D.办公软件”)，如图所示.
第7步，将光标定位到答案下一行的合适位置，然后单击“控件工具箱”中的“命令“按钮，如图所示.
第8步，右键单击新添加的命令按钮，选择“属性”命令.在打开的控件“属性”对话框中将其“名称”修改为“PanDuan1”，“Caption”属性修改为“判断正误”，如图所示.
第9步，双击刚才添加的命令按钮，打开“Visual Basic编辑器”窗口，将判断对错的代码输入到Private Sub panduan1_Click()和End Sub代码中间.
If DaAn1.Value = True And DaAn2.Value = False And DaAn3.Value = False And DaAn4.Value = True Then
MsgBox "选对了，你真棒!", vbOKOnly, "结果"
Else
If DaAn1.Value = True And DaAn2.Value = True And DaAn3.Value = False And DaAn4.Value = False Or DaAn1.Value = True And DaAn2.Value = False And DaAn3.Value = True And DaAn4.Value = False Or DaAn1.Value = False And DaAn2.Value = True And DaAn3.Value = False And DaAn4.Value = True Or DaAn1.Value = False And DaAn2.Value = False And DaAn3.Value = True And DaAn4.Value = True Then
MsgBox "你只选对了一个，继续加油!", vbOKOnly, "提示"
Else
MsgBox "很遗憾，你选错了，再思考一下!", vbOKOnly, "提示"
End If
End If
完成输入后关闭“Visual Basic编辑器”窗口，如图2008070709所示.
输入VBA代码
上述代码含义如下：
(1)如果选择A和D且不选择B和C，则按下“判断正误”弹出消息框“选对了，你真棒!”;
(2)如果选择A和B且不选择C和D，则按下“判断正误”弹出消息框“你只选对了一个，继续加油!”;
(3)如果选择A和C且不选择B和D，则按下“判断正误”弹出消息框“你只选对了一个，继续加油!”;
(4)如果选择B和D且不选择A和C，则按下“判断正误”弹出消息框“你只选对了一个，继续加油!”;
(5)如果选择C和D且不选择A和B，则按下“判断正误”弹出消息框“你只选对了一个，继续加油!”;
(6)如果选择B和C且不选择A和D，或选择了三项以上的选项，则按下“判断正误”弹出消息框“很遗憾，你选错了，再思考一下!”
第10步，再添加一个按钮，将其“名称”修改为“ChongXuan1”，“Caption”属性修改为“重新选择”，如图所示.
第11步，双击该按钮入在“VisualBasic编辑器”窗口中将下述代码输入到Private Sub ChongXuan1_Click()和End Sub代码中间.
DaAn1.Value = False
DaAn2.Value = False
DaAn3.Value = False
DaAn4.Value = False
完成输入后关闭“Visual Basic编辑器”窗口，如图所示.
输入VBA代码
图2008070711 输入VBA代码
第12步，单击“控件工具箱”中的“退出设计模式”按钮，并关闭“控件工具箱”，如图所示.
该道选择题运行结果如下图所示.
以上就是小编为大家带来的如何在office 2010的Word中使用Word VBA制作选择题的全部内容,更多office2010的相关内容请关注未来软件园.
相关文章推荐
如何在office 2010的Word中配置Office助手
如何在office 2010的Word插入专业公式