駕照考試、線上測驗核心邏輯：輸入答案 → 點提交 → 程式比對 → 回饋正確/錯誤。PPT 用 ActiveX「文字方塊」輸入、「命令按鈕」觸發、「VBA」比對邏輯，完整複刻電子試卷核心流程，適合教學測驗、知識檢核、互動問卷。

介面佈局

1. 刪除預設佔位符 → 插入「對角圓角矩形」做題目框（樣式：彩色輪廓-黑色深色 1）。
2. 插入「心形」做標題標籤 → 編輯文字「填空題」→ 字體幼圓 20 pt、加粗、陰影、紅色。
3. 題目框「編輯文字」輸入題幹（如：「______ 是地球唯一的天然衛星。」）。
4. 「開發工具」→「控制項」→「文字方塊」→ 在底線處拉出輸入框 → 右鍵「屬性」→ SpecialEffect = 0 (平面)、Font 微軟正黑體 18 pt、BackColor 白色。
5. 插入兩個「命令按鈕」：Caption 分別設「提交」、「清除」。

VBA 答案比對核心代碼

Private Sub CommandButton1_Click() ' 提交按鈕
    Dim userAns As String
    Dim correctAns As String
    correctAns = "月球" ' 標準答案，可改為陣列支援多答案
    
    userAns = Trim(TextBox1.Text) ' 取得輸入並去首尾空白
    
    If StrComp(userAns, correctAns, vbTextCompare) = 0 Then ' 不分大小寫比對
        MsgBox "正確！月球是地球唯一的天然衛星。", vbInformation + vbOKOnly, "判定結果"
    Else
        MsgBox "錯誤！正確答案是：月球。請再思考一次。", vbCritical + vbOKOnly, "判定結果"
    End If
End Sub

Private Sub CommandButton2_Click() ' 清除按鈕
    TextBox1.Text = ""
    TextBox1.SetFocus ' 焦點回到輸入框
End Sub

關鍵屬性設定表

控制項	關鍵屬性	設定值	說明
TextBox1	SpecialEffect	0 (fmSpecialEffectFlat)	平面外觀，無 3D 邊框
TextBox1	MaxLength	20	限制輸入長度
CommandButton1	Caption	提交	觸發判斷
CommandButton2	Caption	清除	重置輸入框

進階擴展：多題自動評分

• 每題一頁，所有 TextBox 命名規則：Txt_Q1, Txt_Q2…
• 模組級陣列儲存標準答案：Answers = Array("月球", "光合作用", "牛頓")。
• 「提交」按鈕代碼迴圈比對所有題目，累計分數，最終彈出總分與錯題解析。
• 存為 .pptm，啟用巨集後可跨電腦使用（需受信任位置/數位簽章）。

從單一填空題到完整電子試卷，核心邏輯不變：輸入控制項 + 觸發按鈕 + 比對演算法 + 視覺回饋。PPT + VBA，輕量級教學評測系統觸手可及。