2012/7/31 16:10:47作者:佚名来源:网络
在Word2003中使用VBA制作选择题:
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=TrueThen MsgBox"选对了,你真棒!",vbOKOnly,"结果" Else If DaAn1.Value=TrueAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4. Value=False OrDaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.Value= TrueAndDaAn4.Value=FalseOrDaAn1.Value=FalseAndDaAn2.Value=TrueAnd DaAn3.Value=FalseAndDaAn4.Value=TrueOrDaAn1.Value=FalseAndDaAn2. Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=TrueThen MsgBox"你只选对了一个,继续加油!",vbOKOnly,"提示" Else MsgBox"很遗憾,你选错了,再思考一下!",vbOKOnly,"提示" EndIf EndIf
完成输入后关闭“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=False DaAn2.Value=False DaAn3.Value=False DaAn4.Value=False
完成输入后关闭“VisualBasic编辑器”窗口,如图11所示;
第12步,单击“控件工具箱”中的“退出设计模式”按钮,并关闭“控件工具箱”;
将宏安全性的安全级别为“低”,该道选择题完成。
标签: VBA 宏
相关文章
ip雷达 v5.0.2绿色版
详情WinSCPv5.15.1绿色中文版
详情filezilla client v5.5
详情wireshark中文版 v3.4.9
详情Boson Netsimv10.8破解版
详情风行播放器 v3.0.6.106
详情爱奇艺客户端 v10.1.0.6636官方版
详情搜狐影音 v7.0.19.0官方版
详情乐视视频 v7.3.2.192
详情华数tv客户端PC版 v1.1.2.0
详情cbox央视影音 v5.1.2.1经典版
详情软媒收音机(魔方) v1.13
详情倾听网络收音机 v3.0.0.0
详情魅影流声全球网络收音机 v1.0.0.1
详情酷狗电台 v8.2.75
详情暴龙网络收音机 v2.5.1
详情克莉2v1.0中文版
详情冬日计划v1.2中文版
详情刺客信条英灵殿v1.0吾爱破解版
详情刺客信条英灵殿终极v1.0免安装破解版
详情动物森友会v1.10.0最新破解版
详情哈迪斯杀出地狱v1.37中文破解版
详情嗜血印中文豪华版v1.0豪华版破解版 附游戏攻略秘籍
详情城市战斗v1.0中文破解版
详情尼尔人工生命v1.0steam免费破解版
详情尼尔人工生命升级版v1.0PC破解版
详情尼尔人工生命升级版v1.2247中文破解版
详情层层恐惧2中文破解版v1.0绿色免安装版
详情往日不再v1.0 steam破解版
详情往日不再v1.0pc破解版
详情救赎之路v1.0中文破解版
详情斯盖尔女仆v1.0中文破解版
详情新盗墓笔记官方版v1.215.589730
详情无尽的拉格朗日无限金币钻石版v1.2.267172破解版
详情明日之后无限小太阳版v1.0.246安卓版
详情双生幻想vivo版v6.6.83安卓版
详情剑网1归来内购免费版v1.1.116安卓版
详情模拟城市我是市长国际版v0.69.21342.22832安卓版
详情迷你世界999999迷你币版v1.20.5破解版
详情王牌战争无限内购版v9.7安卓版
详情云上城之歌不氪金版v10.16安卓版
详情王铲铲的致富之路破解版v1.1.8安卓版
详情创造与魔法无限点券版v1.0.0505安卓版
详情狩猎使命九游版v1.6.6.000
详情魔镜物语变态版v2.1.4无限金币版
详情黑月手游免费版v2.2.0安卓版
详情曙光英雄v1.0.12.0.20无限钻石版
详情原始传奇无限元宝版v1.6.806内购破解版
详情