黑色：程式碼 藍色：說明
Dim sno As Integer
宣告 sno 為整數變數，起始值是0，這是用來確認學生作答流程的變數
早期瀏覽器以 IE 為主，而當時的 IE 是可以執行 PowerPoint 的，結果有些小朋友的投影片就沒按順序亂跳，得到的結果也就沒有參考價值。
Private Sub CommandButton1_Click() 第一個按鈕 O 的程式
If tea = 1 Then 如果 tea = 1，取得教師權限
CommandButton1.Caption = Slide2.tru.Caption
CommandButton2.Caption = Slide2.fal.Caption
從試卷設定頁取得按鈕內的符號（OX 或 True False）
If Slide2.modify <> True Then Label1 = itmno 試卷設定頁沒有勾 □修改答案 則寫入題號
If anset = 1 Then 如果試卷設定頁按下 設定答案 則
ScrollBar1.Value = 1 設定ScrollBar1（隱藏的捲軸，用來儲存答案）的值為 1
MsgBox seta & CommandButton1.Caption 訊息盒顯示：設定答案為按鈕1的符號
Else 否則（沒有要設定答案）
End If 離開
nex 到下一頁
CommandButton1.BackColor = &H8000000F 設定二個按鈕的顏色
CommandButton2.BackColor = &H8000000F
Label1.BackColor = &HFFFFFF 題號背景設為白色
Else 否則（沒有教師權限，也就是學生按的）
CommandButton1.BackColor = &HC0C0FF 設定第一個按鈕的顏色，表示學生按了這個按鈕
CommandButton2.BackColor = &H8000000F 設定第二個按鈕的顏色為預設值
If Label1 <> itmno Then 如果題號不等於 itmno 則
MsgBox eropstn 訊息盒顯示：操作程序錯誤
fist 跳到首頁
Exit Sub 離開程式
End If
If sno = flow Then 如果 sno = flow 則（sno 目前為0，flow則在首頁已經 +1，所以不應該相等）
MsgBox eropstn 訊息盒顯示：操作程序錯誤
fist 跳到首頁
Exit Sub 離開程式
Else
If ScrollBar1.Value = 1 Then 如果 ScrollBar1.Value = 1 則
rt = rt + 1 答對數+1
Label1.BackColor = &HFFFFFF 題號背景設為白色
MsgBox rtstn 訊息盒顯示：答對時的回饋
sno = flow 將 flow 寫入 sno
nex 下一頁
Else 否則
er = er + 1 答錯數+1
erstring = erstring & " " & itmno 題號寫入 erstring （記錄答錯的題號）
Label1.BackColor = &HC0C0FF 題號背景顏色變紅色
MsgBox erstn 訊息盒顯示：答錯時的回饋
sno = flow
nex
End If
End If
End If
itmno = itmno + 1 題目計數器+1
Label2 = "E-test6"
Label2.Width = 78
Label2.Top = 5
Label2.Left = 642
Label2.Height = 32
Label2：右上角的版本標籤，可以自行修改。如果要刪掉，這段程式碼也要刪掉
End Sub 結束程式
Private Sub CommandButton2_Click() 第2個按鈕 X 的程式，以下略
If tea = 1 Then
CommandButton1.Caption = Slide2.tru.Caption
CommandButton2.Caption = Slide2.fal.Caption
If Slide2.modify <> True Then Label1 = itmno
If anset = 1 Then
ScrollBar1.Value = 2
MsgBox seta & CommandButton2.Caption
Else
End If
nex
CommandButton1.BackColor = &H8000000F
CommandButton2.BackColor = &H8000000F
Label1.BackColor = &HFFFFFF
Else
CommandButton1.BackColor = &H8000000F
CommandButton2.BackColor = &HC0C0FF
If Label1 <> itmno Then
MsgBox eropstn
fist
Exit Sub
End If
If sno = flow Then
MsgBox eropstn
fist
Exit Sub
Else
If ScrollBar1.Value = 2 Then
rt = rt + 1
Label1.BackColor = &HFFFFFF
MsgBox rtstn
sno = flow
nex
Else
er = er + 1
erstring = erstring & " " & itmno
Label1.BackColor = &HC0C0FF
MsgBox erstn
sno = flow
nex
End If
End If
End If
itmno = itmno + 1
Label2 = "E-test6"
Label2.Width = 78
Label2.Top = 5
Label2.Left = 642
Label2.Height = 32
End Sub