技術員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機純凈版,64位旗艦版,綠色軟件,免費軟件下載基地!

當前位置:主頁 > 教程 > 軟件教程 > wps教程 >

WPS文字如何制作小測驗試卷

來源:技術員聯(lián)盟┆發(fā)布時間:2018-01-21 00:05┆點擊:

  小編在這教大家使用WPS文字用控件工具箱制作小測驗試卷

WPS文字如何制作小測驗試卷    三聯(lián)

  安裝VBA環(huán)境

  如果你的電腦沒有安裝VBA,則WPS的“控件工具箱”處于不可用狀態(tài),要用此功能,必須先安裝VBA。但是,可能是由于版權等原因,WPS官方網(wǎng)站并沒有提供VBA的安裝程序。如果要安裝,可以利用AUTOCAD安裝盤,在安裝時只選擇“VBA”即可,另外,也有熱心的網(wǎng)友提取出了VBA的獨立安裝程序。VBA安裝完成后,在WPS文字的工具欄空白區(qū)域右擊鼠標,即可調出“控件工具箱”。

  選擇題的制作

  第一步:啟動WPS文字2007,在新建的空白文檔合適的位置輸入選擇題題干的內容,如“1、WPS Office 2007是哪個公司的產品?”,然后利用“控件工具箱”中的“選項按鈕”,在題干的下面插入一個單選按鈕。

  第二步:右擊剛剛插入的單選按鈕,在右鍵菜單中選擇“屬性”,將(名稱)后面的字符改為“A1”,將“Caption”項改為第一個備選答案(如“微軟公司”),其他項目保持默認不變(如圖2)。退出編輯狀態(tài),再次右擊此單選按鈕,在右鍵菜單中選擇“設置對象格式”,在“版式→環(huán)繞方式”中選擇“嵌入型”

WPS文字用控件工具箱制作小測驗試卷教程

WPS文字用控件工具箱制作小測驗試卷教程

  第三步:復制單選按鈕A1,粘貼3次,修改這3個單選按鈕界面文字為其他選項,然后將它們的名稱屬性分別修改為B1、C1、D1。

  第四步:單擊“控件工具箱”中的命令按鈕,在合適的位置上插入兩個命令按鈕,然后將二者的“名稱”分別修改為“CMD1”和“CMD2”,將界面文字分別修改為“重做”和“判斷”,并將“環(huán)繞方式”修改為“嵌入型”

  第五步:右擊“重做”命令按鈕,選擇“查看代碼”,打開代碼編輯窗口,在“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”,點擊一下“控件工具箱”最左側的“退出設計模式”按鈕,此時,文檔中的控件處于應用狀態(tài),當選擇某個選項后,單擊“判斷”按鈕,系統(tǒng)就會給出相當?shù)奶崾?單擊“重做”按鈕,則可以取消剛才所做的選擇。

WPS文字用控件工具箱制作小測驗試卷教程

  填空題的制作

  除了選項題,填空題也是常用的題型之一。用WPS文字制作填空題也非常容易。

  第一步:打開前面保存過的“測試練習.wps”,在適當位置輸入填空題的題干,如“WPS Office 2007的三個組件是:WPS文字、WPS表格和”,接著選中“控件工具箱”中的文本框,在題干末尾插入一個文本框,根據(jù)需要填寫內容的多少,調節(jié)好文本框的大小,并將其“環(huán)繞方式”設置成“嵌入型”

  第二步:右擊插入的文本框,選擇“屬性”,將文本框的名稱屬性修改為“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