欢迎来到天天文库
浏览记录
ID:16239830
大小:409.50 KB
页数:8页
时间:2018-08-08
《在word2003中使用wordvba制作选择题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、在Word2003中使用WordVBA制作选择题Word中的VBA功能可以使Word文档具有交互功能,在学校教学中,教师就可以利用WordVBA功能在Word文档中制作具有交互功能的选择题。以使用Word2003制作双项选择题Word文档为例,操作步骤如下所述:第1步,新建一个空白Word文档,输入选择题的题目部分,如“一台完整的计算机系统包括()”,然后根据实际情况设置字体、字号,如图2008070701所示。图2008070701输入选择题的题目第2步,在菜单栏依次单击“视图”→“工具栏”→“控件工具箱”菜单命令,打开“
2、控件工具箱”。将光标定位到题目下一行的合适位置,然后在“控件工具箱”中单击“复选框”按钮,如图2008070702所示。图2008070702单击“复选框”按钮第3步,右键单击添加的复选框控件(checkbox1),在打开的快捷菜单中选择“属性”命令,如图2008070703所示。图2008070703选择“属性”命令第4步,打开控件“属性”对话框,将“名称”修改为“DaAn1”,并将“Caption”属性后面的字符修改为相应选项(如“A.硬件系统”),如图2008070704所示。图2008070704“属性”对话框第5步
3、,在“属性”对话框中双击“Font”属性选项,在打开的“字体”对话框中为答案设置字体、字号和颜色,其它属性保持默认设值,如图2008070705所示。图2008070705“字体”对话框第6步,将刚才添加的复选框再复制三个,并分别修改其属性(如“名称”分别修改为“DaAn2”、“DaAn3”、“DaAn4”,“Caption”属性分别修改为“B.系统软件”、“C.软件系统”、“D.办公软件”),如图2008070706所示。图2008070706修改复选框控件属性第7步,将光标定位到答案下一行的合适位置,然后单击“控件工具箱
4、”中的“命令“按钮,如图2008070707所示。图2008070707单击“控件工具箱”中的“命令“按钮第8步,右键单击新添加的命令按钮,选择“属性”命令。在打开的控件“属性”对话框中将其“名称”修改为“PanDuan1”,“Caption”属性修改为“判断正误”,如图2008070708所示。图2008070708设置属性第9步,双击刚才添加的命令按钮,打开“VisualBasic编辑器”窗口,将判断对错的代码输入到PrivateSubpanduan1_Click()和EndSub代码中间。IfDaAn1.Value=T
5、rueAndDaAn2.Value=FalseAndDaAn3.Value=FalseAndDaAn4.Value=TrueThenMsgBox"选对了,你真棒!",vbOKOnly,"结果"ElseIfDaAn1.Value=TrueAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4.Value=FalseOrDaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=FalseOrDaAn1.Val
6、ue=FalseAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4.Value=TrueOrDaAn1.Value=FalseAndDaAn2.Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=TrueThenMsgBox"你只选对了一个,继续加油!",vbOKOnly,"提示"ElseMsgBox"很遗憾,你选错了,再思考一下!",vbOKOnly,"提示"EndIfEndIf完成输入后关闭“VisualBasic编辑器”窗口,如图2008
7、070709所示。图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,则按下“判断正误”弹出消息框“你只选对了一个,继
8、续加油!”;(6)如果选择B和C且不选择A和D,或选择了三项以上的选项,则按下“判断正误”弹出消息框“很遗憾,你选错了,再思考一下!”第10步,再添加一个按钮,将其“名称”修改为“ChongXuan1”,“Caption”属性修改为“重新选择”,如图2008070710所示。图200807
此文档下载收益归作者所有