1、啟動(dòng)WPS演示并新建一演示文稿，在右側(cè)的“幻燈片版式”任務(wù)窗格下面的版式列表中選擇“內(nèi)容版式/空白”。單擊“插入”菜單，然后依次選擇“文本框/橫向”命令，在幻燈片編輯區(qū)單擊出現(xiàn)一文本框，輸入“小測(cè)驗(yàn)”并設(shè)置好字體、字號(hào)、位置等屬性。利用相同的方法再次插入一個(gè)文本框，輸入“請(qǐng)輸入您的姓名：”并設(shè)置好其屬性。
2、選中“控件工具箱”中的“文本框”工具(若“控件工具箱”沒(méi)有打開(kāi)，可通過(guò)菜單“視圖/工具欄/控件工具箱”打工)，這時(shí)鼠標(biāo)變成一個(gè)十字形，在“請(qǐng)輸入您的姓名：”右邊按下鼠標(biāo)左鍵并拖出一適當(dāng)矩形;選中“命令按鈕”工具，在文本框的下面拖出一命令按鈕并右擊，在彈出的快捷菜單中選擇“屬性”，打開(kāi)“屬性”對(duì)話框，把“Caption”屬性改為“確定”，其它為默認(rèn)。如圖1所示。
圖1
3、在菜單欄單擊“插入/新幻燈片”命令，根據(jù)步驟1的方法，把新幻燈片的版式設(shè)為空白，然后插入一文本框，在文本框中輸入試題，例如：1+1=?。在試題的下面插入3個(gè)文本框，分別輸入“A、1”、“B、2”、“C、3”。
根據(jù)需要重復(fù)上面的步驟直到添加完所有的試題。
4、選中第一張幻燈片，雙擊命令按鈕打開(kāi)VBA編輯窗口，刪除窗口中的所有內(nèi)容，然后輸入以下完整代碼：
Dim uname As String
Sub ss()
uname = TextBox1.Text
End Sub
Sub right()
ss
MsgBox "恭喜您答對(duì)了!" & uname
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub endright()
ss
MsgBox "恭喜您全答對(duì)了!" & uname
End Sub
Sub wrong()
MsgBox "您答錯(cuò)了，請(qǐng)?jiān)賮?lái)一次!" & uname
End Sub
Private Sub CommandButton1_Click()
ss
If uname = "" Then
MsgBox "請(qǐng)輸入您的姓名："
Else
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
5、選中試題頁(yè)，對(duì)選項(xiàng)進(jìn)行設(shè)置，右擊選項(xiàng)，在彈出的快捷菜單中選擇“動(dòng)作設(shè)置”命令，打開(kāi)“動(dòng)作設(shè)置”對(duì)話框，選擇“單擊鼠標(biāo)”選項(xiàng)卡，選中 “運(yùn)行宏”，單擊“運(yùn)行宏”下面的按鈕，在彈出的菜單中選擇“right”(若選項(xiàng)錯(cuò)誤選擇“wrong”)，如圖2所示，然后單擊“確定”按鈕退出對(duì)話框。
圖2
用相同的方法對(duì)其它選項(xiàng)進(jìn)行設(shè)置。最后一題的正確選項(xiàng)的運(yùn)行宏選擇“endright”。
6、單擊菜單欄“幻燈片放映/幻燈片切換”命令，打開(kāi)“幻燈片切換”任務(wù)窗格，在“換片方式”區(qū)，去掉“單擊鼠標(biāo)時(shí)”前面的勾選，然后單擊“應(yīng)用于所有幻燈片”按鈕。如圖3所示。
圖3
現(xiàn)在，整個(gè)小測(cè)驗(yàn)演示文稿就制作完成了。按下F5快捷鍵體驗(yàn)一下吧。