2.首頁

黑色：程式碼 藍色：說明

Private Sub go_Click() 首頁的 開始作答 按鈕

If Label2 = "" Then Exit Sub

首頁下方的版權宣告若沒有文字則離開程式：若 Label2 不在，程式會停在這裡

If Slide2.Label1 = "" Then Exit Sub

試卷設定頁右上角的作者資料若被清空則離開程式：若 Label1 不在，程式會停在這裡

Slide2.Label3.Visible = True 試卷設定頁的Label3取消隱藏以遮蔽下方的設定區塊

If Slide2.lang = 1 Then 試卷設定頁若按 ☉中文（預設值），則取得藍色文字的變數

rtstn = Slide2.rtc

erstn = Slide2.erc

eropstn = Slide2.eropc & "，請" & Slide2.rsmc.Text

tru = Slide2.tuc

fal = Slide2.falc

submit = Slide2.smtc

mg = Slide2.mgc 試卷設定頁

，取藍色文字

seta = "設定答案為："

Else 否則（也就是按了 ☉Other Language）取得紅色文字的變數

rtstn = Slide2.rte

erstn = Slide2.ere

eropstn = Slide2.erope & ". Please " & Slide2.rsme.Text

tru = Slide2.tue

fal = Slide2.fale

submit = Slide2.smte

mg = Slide2.mge

seta = "Set answer as :"

End If

If Slide3.Label4 <> "" Then 如果分數統計頁的統計資料不是空的

MsgBox eropstn 訊息盒顯示：操作程序錯誤的訊息

fist 執行 fist 副程式：到首頁

Exit Sub 離開這個副程式

End If 結束

itmno = 1 題目計數器設定為1

If pwdbox <> Slide2.stpwdbox Then 如果密碼不等於試卷設定頁的 學生密碼 則

If pwdbox = Slide2.pwdbox Then 如果密碼等於試卷設定頁的 教師密碼 則

tea = 1 令 tea = 1

nex 下一頁

pwdbox = "" 清空密碼方塊

Exit Sub 結束副程式

Else 否則（也就是教師密碼不對）

tea = 0 令 tea = 0 取消教師權限

MsgBox "請先取得作答密碼 get password from teacher"

SlideShowWindows(Index:=1).View.Exit 離開播放模式

End If 結束這一層的 If

Else 否則（也就是符合學生密碼）

If snam = "" Then 如果姓名或座號是空的

MsgBox "請輸入姓名或座號 Enter you name"

Else

nam = snam 將姓名或座號空格內的文字寫入 nam 變數

flow = flow + 1 flow+1

den = 0 加權分母設為0

num = 0 加權分子設為0

ano = 0 ano 設為0（按過分數統計頁的 看分數 則 ano=1)

pwdbox = "" 清空密碼

nex

End If

End If

End Sub