純圖形化操作結合極簡 VBA，打造「輸入姓名→逐題作答→即時語音反饋→禁止跳題→全對致敬」完整互動測驗流程。無需專業程式設計師，教師也能輕鬆上手。

製作全流程

1. 封面頁：姓名輸入 + 確認按鈕

• 版式選「空白」→ 插入文本框「小測驗」「請輸入您的姓名：」
• 「視圖→工具列→控制項工具箱」→ 選「文本框」控制項拖出輸入框（命名 `TextBox1`）
• 選「命令按鈕」拖出按鈕 → 右鍵「屬性」→ `Caption` 改「確定」

圖1：封面頁控制項佈局

2. 題目頁：題幹 + 三選項文本框

新增投影片 → 空白版式 → 插入文本框輸入題目（如 `1+1=?`） → 下方三文本框輸入 `A、1` `B、2` `C、3`。按需複製增題。

3. 封面按鈕 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

4. 選項綁定宏：動作設置 → 運行宏

• 正確選項 → 運行宏 `right`（最後一題用 `endright`）
• 錯誤選項 → 運行宏 `wrong`

圖2：動作設置綁定宏

5. 禁用滑鼠隨意翻頁

「投影片放映→投影片切換」→ 取消勾選「單擊滑鼠時」→「套用於所有投影片」。

圖3：禁用滑鼠翻頁

按 F5 體驗：姓名驗證 → 逐題作答 → 聲音反饋 → 強制順序 → 完美收官

VBA 代碼僅 30 行，邏輯清晰，複製修改題目即可快速擴充題庫。WPS 演示讓互動教學觸手可及。