小编在这教大家使用WPS文字用控件工具箱制作小测验试卷
安装VBA环境
如果你的电脑没有安装VBA,则WPS的“控件工具箱”处于不可用状态,要用此功能,必须先安装VBA。但是,可能是由于版权等原因,WPS官方网站并没有提供VBA的安装程序。如果要安装,可以利用AUTOCAD安装盘,在安装时只选择“VBA”即可,另外,也有热心的网友提取出了VBA的独立安装程序。VBA安装完成后,在WPS文字的工具栏空白区域右击鼠标,即可调出“控件工具箱”。
选择题的制作
第一步:启动WPS文字2007,在新建的空白文档合适的位置输入选择题题干的内容,如“1、WPS Office 2007是哪个公司的产品?”,然后利用“控件工具箱”中的“选项按钮”,在题干的下面插入一个单选按钮。
第二步:右击刚刚插入的单选按钮,在右键菜单中选择“属性”,将(名称)后面的字符改为“A1”,将“Caption”项改为第一个备选答案(如“微软公司”),其他项目保持默认不变(如图2)。退出编辑状态,再次右击此单选按钮,在右键菜单中选择“设置对象格式”,在“版式→环绕方式”中选择“嵌入型”
第三步:复制单选按钮A1,粘贴3次,修改这3个单选按钮界面文字为其他选项,然后将它们的名称属性分别修改为B1、C1、D1。
第四步:单击“控件工具箱”中的命令按钮,在合适的位置上插入两个命令按钮,然后将二者的“名称”分别修改为“CMD1”和“CMD2”,将界面文字分别修改为“重做”和“判断”,并将“环绕方式”修改为“嵌入型”
第五步:右击“重做”命令按钮,选择“查看代码”,打开代码编辑窗口,在“Private Sub CMD1_Click()”和“End Sub”之间插入以下代码:
A1.Value=False
B1.Value=False
C1.Value=False
D1.Value=False
再打开“判断”按钮的代码窗口,在“Private Sub CMD2_Click()”和“End Sub”之间插入以下代码:
If B1.Value=True Then
MsgBox "恭喜您,答对了!", 64, "温馨提示"
Else
MsgBox "再想想,相信你一定能答对!", 64, "温馨提示"
End If
其中“if B1.Value=true”表示这道题的正确选项是B(即“金山公司”),“MsgBox "恭喜您,答对了!", 64, "温馨提示"”表示弹出标题为“温馨提示”,内容为“恭喜你,答对了!”的弹出对话框,而“64”则表示显示信息图标。将这个包含选择题的WPS文档保存为“测试练习.wps”,点击一下“控件工具箱”最左侧的“退出设计模式”按钮,此时,文档中的控件处于应用状态,当选择某个选项后,单击“判断”按钮,系统就会给出相当的提示,单击“重做”按钮,则可以取消刚才所做的选择。
填空题的制作
除了选项题,填空题也是常用的题型之一。用WPS文字制作填空题也非常容易。
第一步:打开前面保存过的“测试练习.wps”,在适当位置输入填空题的题干,如“WPS Office 2007的三个组件是:WPS文字、WPS表格和”,接着选中“控件工具箱”中的文本框,在题干末尾插入一个文本框,根据需要填写内容的多少,调节好文本框的大小,并将其“环绕方式”设置成“嵌入型”
第二步:右击插入的文本框,选择“属性”,将文本框的名称属性修改为“text1”,然后复制选择题目中的“重做”和“判断”命令按钮到填空题的末尾,将其名称分别修改为“CMD21”和“CMD22”并调整好它们的位置。
第三步:右击填空题后面的“重做”按钮,在右键菜单中选择“查看代码”,在“Private Sub CMD21_Click()”和“End Sub”之间输入下列代码:
Text1.Text=""
再打开填空题后面的“判断”命令按钮的代码窗口,在“Private Sub CMD22_Click()”和“End Sub”之间输入下列代码:
If Text1.Text="WPS演示" Or Text1.Text="WPS 演示" Then
MsgBox "恭喜您,答对了!", 64, "温馨提示"
Else
MsgBox "再想想,相信你一定能答对!", 64, "温馨提示"
End If