利用Word VBA制作选择题

最新推荐文章于 2024-09-09 13:29:49 发布

最新推荐文章于 2024-09-09 13:29:49 发布 · 475 阅读

文章标签：

#设计模式

本文详细介绍了如何利用Word2003的VBA功能在Word文档中创建交互式的双项选择题，通过设置复选框、命令按钮和编写VBA代码，实现学生对选项的互动选择并给出相应的反馈。

Word中的VBA功能可以使Word文档具有交互功能，在学校教学中，教师就可以利用Word VBA功能在Word文档中制作具有交互功能的选择题。以使用Word2003制作双项选择题Word文档为例，操作步骤如下所述：

第 1步，新建一个空白Word文档，输入选择题的题目部分，如“一台完整的计算机系统包括（）”，然后根据实际情况设置字体、字号，如图2008070701所示。

图 2008070701输入选择题的题目

第 2步，在菜单栏依次单击“视图”→“工具栏”→“控件工具箱”菜单命令，打开“控件工具箱”。将光标定位到题目下一行的合适位置，然后在“控件工具箱”中单击“复选框”按钮，如图2008070702所示。

图 2008070702单击“复选框”按钮

第 3步，右键单击添加的复选框控件（checkbox1），在打开的快捷菜单中选择“属性”命令，如图2008070703所示。

图 2008070703选择“属性”命令

第 4步，打开控件“属性”对话框，将“名称”修改为“DaAn1”，并将“Caption”属性后面的字符修改为相应选项（如“A.硬件系统”），如图2008070704所示。

图 2008070704“属性”对话框

第 5步，在“属性”对话框中双击“Font”属性选项，在打开的“字体”对话框中为答案设置字体、字号和颜色，其它属性保持默认设值，如图2008070705所示。

图 2008070705“字体”对话框

第 6步，将刚才添加的复选框再复制三个，并分别修改其属性（如“名称”分别修改为“DaAn2”、“DaAn3”、“DaAn4”，“Caption”属性分别修改为“B.系统软件”、“C.软件系统”、“D.办公软件”），如图2008070706所示。

图 2008070706修改复选框控件属性

第 7步，将光标定位到答案下一行的合适位置，然后单击“控件工具箱”中的“命令“按钮，如图2008070707所示。

图 2008070707单击“控件工具箱”中的“命令“按钮

第 8步，右键单击新添加的命令按钮，选择“属性”命令。在打开的控件“属性”对话框中将其“名称”修改为“PanDuan1”，“Caption”属性修改为“判断正误”，如图2008070708所示。

图 2008070708设置属性

第 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

完成输入后关闭 “Visual Basic编辑器”窗口，如图2008070709所示。