MODULES > QUIZ > REPORT CARD

INTERACTIVE POWERPOINT QUIZ GAME WITH REPORT CARD AND PERCENTAGE
No. of Correct Answers, Wrong Answers, Pass Questions, Points & Scores

In the module, will be adding labels for the number of correct and wrong answers, total and passed questions. We will also show the Points and Percentages scored.

Also, the feature of allowing questions to be passed and for the user to retry the quiz game will be added.

 

Sub Correct()
Points.Caption = (Points.Caption) + 10
CA.Caption = (CA.Caption) + 1
Output = MsgBox("Your Answer is correct, well done!", vbOKOnly, "Correct Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Wrong()
Points.Caption = (Points.Caption) - 5
WA.Caption = (WA.Caption) + 1
Output = MsgBox("Your Answer is wrong.", vbOKOnly, "Incorrect Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ResetAllCaptions
CA.Caption = 0
WA.Caption = 0
PQ.Caption = 0
TQ.Caption = 0
Percentage.Caption = 0
Points.Caption = 0
End Sub

Sub Reset()
ResetAllCaptions
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Sub Retry()
ResetAllCaptions
ActivePresentation.SlideShowWindow.View.GotoSlide (1)
End Sub

Sub ShowResult()
TQ.Caption = 6 'change accordingly as per your pptm file' 
PQ.Caption = Int((TQ.Caption) - (CA.Caption) - (WA.Caption))
Percentage.Caption = (CA.Caption) * 100 / (TQ.Caption)
ActivePresentation.SlideShowWindow.View.Next
End Sub
 

Adding Customisable Grade in PPT Quiz Game based on Percentage

If Percentages.Caption > 50 Then
Grade.Caption = "D Grade"
ElseIf Percentages.Caption > 70 Then
Grade.Caption = "C Grade"
ElseIf Percentages.Caption > 80 Then
Grade.Caption = "B Grade"
ElseIf Percentages.Caption > 90 Then
Grade.Caption = "A Grade"
End If 

I have not added this in my module but it is very simple. Just use the above code and place a label called “Grade” in your Report Card Slide. You can customise the grades by playing with the numbers and the text which should be shown in the caption.

Adding a Report Card in Microsoft PowerPoint Quiz using VBA

We create a slide-master layout within which we place multiple Labels which can keep count of the number of questions answered correctly and the number of questions answered incorrectly.

Then, we calculate the percentage as per the total questions present and the number of questions which were answered correctly.