用Word2003中的VBA做选择题：

Word2003中的VBA功能非常强大，具有交互功能。如果你是学校老师，可以使用WordVBA功能在Word文档中进行具有交互功能的选择题。现在让我们用Word2003制作一个带有双重选择题的Word文档作为例子。操作步骤如下：

第一步，新建一个空白Word文档，输入选择题的题目部分，如“一个完整的计算机系统包含()”，然后根据实际情况设置字体和大小；

第二步：检查word工具栏中是否有“控件工具箱”浮动工具示例。如果没有，点击菜单栏中的菜单命令“视图”“工具栏”“控件工具箱”，打开“控件工具箱”。

然后将光标移动到主题下一行的适当位置，再点击“控件工具箱”中的“复选框”按钮，如图：

第三步：右键单击添加的复选框控件(复选框1)，从打开的快捷菜单中选择“属性”命令，如图所示：

第四步：打开控件的“属性”对话框，将“名称”改为“DaAn1”，将“标题”属性后面的字符改为相应的选项(如“a .硬件系统”)，如图：

第五步：双击“属性”对话框中的“字体”属性选项，在打开的“字体”对话框中为答案设置字体、大小和颜色，其他属性保留默认值；

第六步：复制刚添加的三个复选框，修改它们的属性(如“名称”分别改为“DaAn2”、“DaAn3”和“DaAn4”，标题分别改为“b .系统软件”、“c .软件系统”和“d .办公软件”)，如图。

第七步：将光标定位到答案下一行的合适位置，然后点击“控件工具箱”中的“命令”按钮，如图：

步骤8:右键单击新添加的命令按钮，并选择“属性”命令。在打开的控件属性对话框中，将其名称更改为PanDuan1，并将标题属性更改为true或false。

第九步：双击刚添加的命令按钮，打开VisualBasic编辑器窗口，输入PrivateSubpanduan1 _ Click()和EndSub代码之间的对错代码；

以下是完整的代码：

Ifdaan1。值=trueanddaan2。值=falseanddaan3。值=falseanddaan4。value=truethenmsgbox“选择正确，你很棒！”，vbOKOnly，Result' else ifdaan1。值=trueanddaan2。value=trueanddaan3。值=falseanddaan4。value=false ordaan1。值=trueanddaan2。值=falseanddaan3。值=trueanddaan3 4。值=falseanddaan1。值=falseanddaan2。value=trueanddaan3。值=falseanddaan1。值=falseanddaan2。值=falseanddaan3。value=trueanddaan4。value=truethenmsgbox '你只选择了一个正确的，vbOKOnly，'提示' ElseMsgBox '对不起，你做了错误的选择，再想想！vbOKOnly，' prompt ' EndIfEndIf

进入后关闭VisualBasic编辑器窗口；

以上代码的含义如下：(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，或者选择了三个以上的选项，则按“真或假”弹出消息框“很遗憾，你弄错了，再想想！”

第十步，再增加一个按钮，将其“名称”改为“重选1”，将其“标题”属性改为“重选；

第十一步：双击此按钮，在“VisualBasic编辑器”窗口中，在PrivateSubChongXuan1 _ Click()和EndSub代码之间输入以下代码。

以下是整个代码：daan1。值=假daan2。值=假daan3。值=假daan4。值=假

完成输入后关闭VisualBasic编辑器窗口，如图11所示；

步骤12:单击控件工具箱中的退出设计模式按钮，关闭控件工具箱。

将宏观安全的安全等级设置为“低”，完成选择题。