9.分數統計

黑色：程式碼 藍色：說明

Private Sub CommandButton2_Click() 看分數 的程式碼

If tea = 1 Then 如果tea = 1，取得教師權限

If Slide2.modify <> True Then Label1 = itmno - 1

如果試卷設定頁的 modify 沒勾（沒有要修改答案），把 itmno - 1 寫入 Label1（總題數）

mon = Month(Now()) 取得今天的月

dy = Day(Now()) 取得今天的日

If ano <> 0 Then Exit Sub 已看過分數，不予理會

ans = rt + er 作答題數

If Label1 <> ans Then

以教師的權限操作時 rt、er 都不會用到，所以 ans = 0，故不等於 Label1（總題數）

If tea = 1 Then 如果是教師，則顯示設定完成

Label7 = "設定完成，請按 [" & CommandButton1.Caption & "]" & vbCr & "Finish Setting. Click [" & CommandButton1.Caption & "]" （註： vbCr = 換行）

Else 否則（不是教師，也就是學生，應該作答題數 = 總題數）

Label7 = eropstn 顯示 操作程序錯誤

End If

Exit Sub

End If

成績計算，請參閱：加權計分

num = rt + num 分子 = 答對數 + 加權分子

den = ans + den 分母 = 作答數 + 加權分母

sum = num / den * 100

以下設定分數統計的文字

If Slide2.lang = 1 Then Slide2.lang = 1，顯示中文

Label3 = nam 首頁取得的姓名或座號

Label4 = Slide2.totalc & "：" & vbCr & Slide2.rtansc & "：" & vbCr & Slide2.rngc & "："

作答題數： 換行 答對題數： 換行 答錯題號：

Label5 = mon & dy & Slide2.testname & "[" & flow & "]" & nam

另存考卷的路徑：月日測驗名稱[作答次數]姓名或座號

Label6 = Label1 & vbCr & rt 作答題數 換行 答對題數

Label7 = erstring 答錯的題號

Else 否則，顯示紅色文字（英文）的變數

Label3 = nam

Label4 = Slide2.totale & ":" & vbCr & Slide2.rtanse & ":" & vbCr & Slide2.rnge & ":"

Label5 = mon & dy & Slide2.testname & "[" & flow & "]" & nam

Label6 = Label1 & vbCr & rt

Label7 = erstring

End If

Label2 = sum 右上角的總分

ano = 1 令 ano = 1，表示看過答案

End Sub

Private Sub CommandButton1_Click() 重考一遍 的程式碼

fist

Slide2.modify = False 試卷設定頁的 modify 設為 False，即沒有勾選

End Sub

Private Sub CommandButton3_Click() 另存考卷 的程式碼

If ano = 0 Then

Label7 = "看過分數以後才能存檔。" & vbCr & "Click [" & Slide2.score.Caption & "] first ."

Exit Sub

End If

mon = Month(Now())

dy = Day(Now())

ActivePresentation.SaveAs FileName:=TextBox1 & "\" & mon & dy & Slide2.testname & "[" & flow & "]" & nam, FileFormat:=ppSaveAsGIF, EmbedTrueTypeFonts:=msoFalse

另存新檔(Save As) 檔名：TextBox1(磁碟機:)\月日測驗名稱[作答次數]姓名或座號，檔案格式：GIF

End Sub

Private Sub CommandButton4_Click() 考完了 的程式碼

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

End Sub