發一個自動計的PPS測驗卷

這是我蒐集的PPT VBS素材
這是別人寫的
我不敢掠人之美
保留有作者說明
裡面內含VBA
使用時請記得將PPT的安全度設為中
開啟檔案時會跳禿對話框問使否使用巨集/宏
請按啟用巨集/宏
VBA設定上也非常簡單
一頁一題
設定幾題在模組的程式碼上輸入相對應的題數～宣告，一定要先做！
Public n, n1, n2, n3, n4, n5~nN(後一個N為設定最大題數-1)
答對得幾分可以到每題題目中指定
最後一頁為計分請將原本 MsgBox "您的分數是" & n 單純顯示分數改成以下的判斷式～
n = n1 + n2 + n3 + n4 + n5+~nN
If n >= 90 Then
MsgBox "您的分數是" & n & vbCr & vbCr & "厲害唷！", 48, "腦力大激盪~得分"
ElseIf n >= 70 Then
MsgBox "您的分數是" & n & vbCr & vbCr & "還不錯啦！", 48, "腦力大激盪~得分"
ElseIf n >= 50 Then
MsgBox "您的分數是" & n & vbCr & vbCr & "要加油囉！", 48, "腦力大激盪~得分"
ElseIf n >= 30 Then
MsgBox "您的分數是" & n & vbCr & vbCr & "好好的再試一次吧！", 48, " 腦力大激盪~得分"
Else
MsgBox "您的分數是" & n & vbCr & vbCr & "有沒有搞錯>_<", 48, "腦力大激盪~得分"
End If

第一頁的名子輸入欄只是要給稱呼的可以填任字符(vb內設字符不可)

好好設計諸如心理測驗 趣味問答都很好發揮
修改不困難設個十幾二十題也很快的