巧用WPP制作課堂小測驗

　　1、啟動WPS演示並新建一演示文稿，在右側的“幻燈片版式”任務窗格下面的版式列表中選擇“內容版式/空白”。單擊“插入”菜單，然後依次選擇“文本框/橫向”命令，在幻燈片編輯區單擊出現一文本框，輸入“小測驗”並設置好字體、字號、位置等屬性。利用相同的方法再次插入一個文本框，輸入“請輸入您的姓名：”並設置好其屬性。

　　2、選中“控件工具箱”中的“文本框”工具(若“控件工具箱”沒有打開，可通過菜單“視圖/工具欄/控件工具箱”打工)，這時鼠標變成一個十字形，在“請輸入您的姓名：”右邊按下鼠標左鍵並拖出一適當矩形;選中“命令按鈕”工具，在文本框的下面拖出一命令按鈕並右擊，在彈出的快捷菜單中選擇“屬性”，打開“屬性”對話框，把“Caption”屬性改為“確定”，其它為默認。如圖1所示。

　　圖1

　　3、在菜單欄單擊“插入/新幻燈片”命令，根據步驟1的方法，把新幻燈片的版式設為空白，然後插入一文本框，在文本框中輸入試題，例如：1+1=?。在試題的下面插入3個文本框，分別輸入“A、1”、“B、2”、“C、3”。

　　根據需要重復上面的步驟直到添加完所有的試題。

　　4、選中第一張幻燈片，雙擊命令按鈕打開VBA編輯窗口，刪除窗口中的所有內容，然後輸入以下完整代碼：

　　Dim uname As String

　　Sub ss()

　　uname = TextBox1.Text

　　End Sub

　　Sub right()

　　ss

　　MsgBox "恭喜您答對了!" & uname

　　ActivePresentation.SlideShowWindow.View.Next

　　End Sub

　　Sub endright()

　　ss

　　MsgBox "恭喜您全答對了!" & uname

　　End Sub

　　Sub wrong()

　　MsgBox "您答錯了，請再來一次!" & uname

　　End Sub

　　Private Sub CommandButton1_Click()

　　ss

　　If uname = "" Then

　　MsgBox "請輸入您的姓名："

　　Else

　　ActivePresentation.SlideShowWindow.View.Next

　　End If

　　End Sub

　　5、選中試題頁，對選項進行設置，右擊選項，在彈出的快捷菜單中選擇“動作設置”命令，打開“動作設置”對話框，選擇“單擊鼠標”選項卡，選中 “運行宏”，單擊“運行宏”下面的按鈕，在彈出的菜單中選擇“right”(若選項錯誤選擇“wrong”)，如圖2所示，然後單擊“確定”按鈕退出對話框。

　　圖2

　　用相同的方法對其它選項進行設置。最後一題的正確選項的運行宏選擇“endright”。

　　6、單擊菜單欄“幻燈片放映/幻燈片切換”命令，打開“幻燈片切換”任務窗格，在“換片方式”區，去掉“單擊鼠標時”前面的勾選，然後單擊“應用於所有幻燈片”按鈕。如圖3所示。

　　圖3

　　現在，整個小測驗演示文稿就制作完成了。按下F5快捷鍵體驗一下吧。