小編在這教大家使用WPS文字用控件工具箱制作小測(cè)驗(yàn)試卷
安裝VBA環(huán)境
如果你的電腦沒(méi)有安裝VBA,則WPS的“控件工具箱”處于不可用狀態(tài)，要用此功能，必須先安裝VBA。但是，可能是由于版權(quán)等原因，WPS官方網(wǎng)站并沒(méi)有提供VBA的安裝程序。如果要安裝，可以利用AUTOCAD安裝盤，在安裝時(shí)只選擇“VBA”即可，另外，也有熱心的網(wǎng)友提取出了VBA的獨(dú)立安裝程序。VBA安裝完成后，在WPS文字的工具欄空白區(qū)域右擊鼠標(biāo)，即可調(diào)出“控件工具箱”。
選擇題的制作
第一步：?jiǎn)?dòng)WPS文字2007，在新建的空白文檔合適的位置輸入選擇題題干的內(nèi)容，如“1、WPS Office 2007是哪個(gè)公司的產(chǎn)品?”，然后利用“控件工具箱”中的“選項(xiàng)按鈕”，在題干的下面插入一個(gè)單選按鈕。
第二步：右擊剛剛插入的單選按鈕，在右鍵菜單中選擇“屬性”，將(名稱)后面的字符改為“A1”,將“Caption”項(xiàng)改為第一個(gè)備選答案(如“微軟公司”)，其他項(xiàng)目保持默認(rèn)不變(如圖2)。退出編輯狀態(tài)，再次右擊此單選按鈕，在右鍵菜單中選擇“設(shè)置對(duì)象格式”，在“版式→環(huán)繞方式”中選擇“嵌入型”
第三步：復(fù)制單選按鈕A1,粘貼3次，修改這3個(gè)單選按鈕界面文字為其他選項(xiàng)，然后將它們的名稱屬性分別修改為B1、C1、D1。
第四步：?jiǎn)螕?ldquo;控件工具箱”中的命令按鈕，在合適的位置上插入兩個(gè)命令按鈕，然后將二者的“名稱”分別修改為“CMD1”和“CMD2”,將界面文字分別修改為“重做”和“判斷”，并將“環(huán)繞方式”修改為“嵌入型”
第五步：右擊“重做”命令按鈕，選擇“查看代碼”，打開(kāi)代碼編輯窗口，在“Private Sub CMD1_Click()”和“End Sub”之間插入以下代碼：
A1.Value = False
B1.Value = False
C1.Value = False
D1.Value = False
再打開(kāi)“判斷”按鈕的代碼窗口，在“Private Sub CMD2_Click()”和“End Sub”之間插入以下代碼：
If B1.Value = True Then
MsgBox "恭喜您，答對(duì)了!", 64, "溫馨提示"
Else
MsgBox "再想想，相信你一定能答對(duì)!", 64, "溫馨提示"
End If
其中“if B1.Value=true”表示這道題的正確選項(xiàng)是B(即“金山公司”)，“MsgBox "恭喜您，答對(duì)了!", 64, "溫馨提示"”表示彈出標(biāo)題為“溫馨提示”，內(nèi)容為“恭喜你，答對(duì)了!”的彈出對(duì)話框，而“64”則表示顯示信息圖標(biāo)。將這個(gè)包含選擇題的WPS文檔保存為“測(cè)試練習(xí).wps”，點(diǎn)擊一下“控件工具箱”最左側(cè)的“退出設(shè)計(jì)模式”按鈕，此時(shí)，文檔中的控件處于應(yīng)用狀態(tài)，當(dāng)選擇某個(gè)選項(xiàng)后，單擊“判斷”按鈕，系統(tǒng)就會(huì)給出相當(dāng)?shù)奶崾?單擊“重做”按鈕，則可以取消剛才所做的選擇。
填空題的制作
除了選項(xiàng)題，填空題也是常用的題型之一。用WPS文字制作填空題也非常容易。
第一步：打開(kāi)前面保存過(guò)的“測(cè)試練習(xí).wps”，在適當(dāng)位置輸入填空題的題干，如“WPS Office 2007的三個(gè)組件是：WPS文字、WPS表格和”，接著選中“控件工具箱”中的文本框，在題干末尾插入一個(gè)文本框，根據(jù)需要填寫內(nèi)容的多少，調(diào)節(jié)好文本框的大小，并將其“環(huán)繞方式”設(shè)置成“嵌入型”
第二步：右擊插入的文本框，選擇“屬性”，將文本框的名稱屬性修改為“text1”,然后復(fù)制選擇題目中的“重做”和“判斷”命令按鈕到填空題的末尾，將其名稱分別修改為“CMD21”和“CMD22”并調(diào)整好它們的位置。
第三步：右擊填空題后面的“重做”按鈕，在右鍵菜單中選擇“查看代碼”，在“Private Sub CMD21_Click()”和“End Sub”之間輸入下列代碼：
Text1.Text = ""
再打開(kāi)填空題后面的“判斷”命令按鈕的代碼窗口，在“Private Sub CMD22_Click()”和“End Sub”之間輸入下列代碼：
If Text1.Text = "WPS演示" Or Text1.Text = "WPS 演示" Then
MsgBox "恭喜您，答對(duì)了!", 64, "溫馨提示"
Else
MsgBox "再想想，相信你一定能答對(duì)!", 64, "溫馨提示"
End If