6 steps to Create Interactive Multiple Choice Quiz Game in PowerPoint
Dim nCorrect As Integer, nWrong As Integer, nPoints As Integer Sub StartGame() nCorrect = 0 nWrong = 0 nPoints = 0 ActivePresentation.SlideShowWindow.View.Next End Sub Sub CorrectAnswer() Output = MsgBox("Your Answer is Correct!", vbInformation, "Correct Answer!") nCorrect = nCorrect + 1 nPoints = nPoints + 10 'Points for Correct Answer UpdatePoints NextSlide End Sub Sub WrongAnswer() Output = MsgBox("Your Answer is Wrong!", vbCritical, "Wrong Answer!") nWrong = nWrong + 1 nPoints = nPoints - 5 'Negative Points for Wrong Answer UpdatePoints NextSlide End Sub Sub UpdatePoints() With ActivePresentation.Slides(ActivePresentation.Slides.Count) 'last slide .Shapes("nCorrect").TextFrame.TextRange = nCorrect .Shapes("nWrong").TextFrame.TextRange = nWrong .Shapes("nPoints").TextFrame.TextRange = nPoints End With End Sub Sub NextSlide() ActivePresentation.SlideShowWindow.View.GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex + 1) End Sub
How to make Quiz Game in PowerPoint with Sound Effects?
You can download this free PowerPoint Quiz Game Template too! This game is an easy and fun way to engage your students and encourage competition. So let’s dive right in and create your very own PowerPoint Quiz Game in just 4 minutes:
In the next video, we shall be creating a report card that shows the number of correct and wrong answers that the student has attempted, it then calculates the points! We also add a custom timer for each question along with a progress bar.