Word中使用VBA制作选择题
发布时间:2023-03-18 07:20:15
Word2003中的VBA功能是非常强大的,他具有交互功能,如果你是一位学校教师,那么完全可以利用WordVBA功能在Word文档中制作具有交互功能的选择题。现在我们就来使用Word2003制作双项选择题Word文档为例,操作步骤如下所述:
第1步,新建一个空白Word文档,输入选择题的题目部分,如“一台完整的计算机系统包括()”,然后根据实际情况设置字体、字号;
第2步,在word工具栏中看看有没有“控件工具箱”浮动工具样,如果没有,在菜单栏依次单击“视图”→“工具栏”→“控件工具箱”菜单命令,打开“控件工具箱”。
然后将光标移到题目下一行的合适位置,然后在“控件工具箱”中单击“复选框”按钮,如图所示:
第3步,右键单击添加的复选框控件(checkbox1),在打开的快捷菜单中选择“属性”命令,如图所示:
第4步,打开控件“属性”对话框,将“名称”修改为“DaAn1”,并将“Caption”属性后面的字符修改为相应选项(如“A.硬件系统”),如图所示:
第5步,在“属性”对话框中双击“Font”属性选项,在打开的“字体”对话框中为答案设置字体、字号和颜色,其它属性保持默认设值;
第6步,将刚才添加的复选框再复制三个,并分别修改其属性(如“名称”分别修改为“DaAn2”、“DaAn3”、“DaAn4”,“Caption”属性分别修改为“B.系统软件”、“C.软件系统”、“D.办公软件”),得到如图所示:
第7步,将光标定位到答案下一行的合适位置,然后单击“控件工具箱”中的“命令”按钮,如图所示:
第8步,右键单击新添加的命令按钮,选择“属性”命令。在打开的控件“属性”对话框中将其“名称”修改为“PanDuan1”,“Caption”属性修改为“判断正误”;
第9步,双击刚才添加的命令按钮,打开“VisualBasic编辑器”窗口,将判断对错的代码输入到PrivateSubpanduan1_Click()和EndSub代码中间;
以下是全部代码:
If DaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.Value=FalseAndDaAn4.Value=TrueThenMsgBox"选对了,你真棒!",vbOKOnly,"结果"ElseIf DaAn1.Value=TrueAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4.Value=False OrDaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=FalseOrDaAn1.Value=FalseAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4.Value=TrueOrDaAn1.Value=FalseAndDaAn2.Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=TrueThenMsgBox"你只选对了一个,继续加油!",vbOKOnly,"提示"ElseMsgBox"很遗憾,你选错了,再思考一下!",vbOKOnly,"提示"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,或选择了三项以上的选项,则按下“判断正误”弹出消息框“很遗憾,你选错了,再思考一下!”
第10步,再添加一个按钮,将其“名称”修改为“ChongXuan1”,“Caption”属性修改为“重新选择;
第11步,双击该按钮入在“VisualBasic编辑器”窗口中将下述代码输入到PrivateSubChongXuan1_Click()和EndSub代码中间。
以下是全部代码:
DaAn1.Value=FalseDaAn2.Value=FalseDaAn3.Value=FalseDaAn4.Value=False
完成输入后关闭“VisualBasic编辑器”窗口,如图11所示;
第12步,单击“控件工具箱”中的“退出设计模式”按钮,并关闭“控件工具箱”;
将宏安全性的安全级别为“低”,该道选择题完成。
猜你喜欢
- 点击文件--页面设置然后点击页边距选项卡,选择装订线位置为“左”,装订线宽为40毫米。然后选择页眉和页脚:勾选奇偶页不同。点击确定,我把装订
- 在“绘图工具/格式”——形状样式——“形状效果”按钮,打开形状效果菜单后就会出现“棱台”选项。word文档艺术字棱台就可以棱台列表中进行设置
- word2010怎么按照表格中的数据进行升降排序?word2010表格中有很多数据,想让数据按照升降顺序排列,该怎么设置呢?下面我们就来看看
- 我们都知道在win10的桌面右键鼠标会有个菜单栏,里面都会有个性化那个选择项。但是有的用户就遇到奇葩的时刻,就是看不到个性化,这让用户表示很
- 在遇到难以解决的电脑问题的时候,很多人都会采取重置电脑的方式来解决问题,但是这里小编对win10的用户建议不要轻易重置电脑,因为在重置的过程
- word2003和2007公式编辑器在哪?怎么编辑公式?很多朋友都不是很清楚,所以下面小编就为大家介绍一下,来看看吧word公式编辑器在哪,
- 在数学、物理等学科中往往会出现各种公式符号,那你知道在word中如何打出这些符号吗?今天小编就为大家介绍一下Word2010中的公式功能,可
- word2016不能输入汉字出现红色波浪线该怎么办?word2016中输入的中文下面有波浪线,没办法输入中文,该怎么办呢?下面我们就来看看详
- 1.打开需要编辑修改的WPS文档 2.选中需要修改的文字内容,然后点击工具栏的“查找替换”然后选择“替换” &nb
- 透明文字的制作方法有很多,下面小编就为大家详细介绍在ppt2013怎么制作透明字体方法,操作很简单的,希望这篇文章能对大家有所帮助想要使用p
- 许多用户在使用电脑的时候都会为自己的电脑插入显示页码,但是部分用户设置好之后还想要在Word中插入一个空白页,且不显示页面,而且其他页面还要
- 新手教程,高手飘过。我们在用word2003排版的时候,为了方便查找、编纂、核查,都需要给文档添加页码,让每一页都有自己的“页码”。下面我们
- 下面的代码的功能是,全选word文档的当前页,注意,是当前页,即插入条所在的页,而不是全文。Dim CurrentPageStart As
- 与Word2003相比,Word2007最明显的变化就是取消了传统的菜单操作方式,而代之于各种功能区。在Word2007窗口上方看起来像菜单
- 最近有位win10系统用户使用电脑的时候,想要查看电脑主板型号不知道在哪里查看,我们只有对主板型号有一定的了解,才能装配最适合设备的软件,因
- 在WPS文字中,调整页码字号的操作方法:1、在页脚处双击鼠标,进入页脚编辑状态;2、选中方框中的页脚数字;3、单击开始选项卡,在字号处选择所
- 这篇文章主要介绍了PPT/WORD文档无法打开怎么办,即打不开PPT/WORD文档的原因,还会弹出一个对话框,如何解决PPT/WORD文档打
- office发展至今,以及出现了很多的版本,我还记得上学的时候,做办公软件的office一级、二级的考试,用的办公软件都是office 20
- Word是财务工作人员常用的办公软件之一,那么应该需要掌握不少Word的应用技巧。以下是小编为您带来的关于财务人员的Word软件应用技巧,希
- 我们作为最高权限的管理员,有权对自己的win10系统指定运行哪些程序。不是你什么应用程序都能随意跑的,我们可以有针对性的来设置。来看看怎么设