爱刨根知识网

  1. 首页 > 经验知识 > >

然后将二者的名称分别修改为CMD1和CMD2

生活经验知识分享

小编在这教大家使用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 = https://www.taobao49.com/275035/False
B1.Value = https://www.taobao49.com/275035/False
C1.Value = https://www.taobao49.com/275035/False
D1.Value = https://www.taobao49.com/275035/False
再打开“判断”按钮的代码窗口，在“Private Sub CMD2_Click()”和“End Sub”之间插入以下代码：
If B1.Value = https://www.taobao49.com/275035/True Then
MsgBox “恭喜您，答对了!”, 64, “温馨提示”
Else
【然后将二者的名称分别修改为CMD1和CMD2】MsgBox “再想想，相信你一定能答对!”, 64, “温馨提示”
End If
其中“if B1.Value=https://www.taobao49.com/275035/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

    推荐阅读


    上一篇：依次点击格式样式和格式

    下一篇：弹出【模板】对话框; 3.在【模板】对话框中点击【办公】选项卡