Interactive Quiz with Scores at the end?

JohnWilson · #1 03-07-2016, 09:00 AM

If a correct answer always adds 1

Code:

Sub InitializeScore()
Tally = 0
End Sub
Sub AddToTally()
' this adds 1 to the score
Tally = Tally + 1
End Sub
Sub ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Sub

With your original code (unless there was more than you posted) 'Points' was always zero and the result would always be zero

VisionAvenger · #2 03-07-2016, 09:44 AM

OK, thanks for the amended code, but now it just says, "Your final score is" (ie, no number).

Really appreciate your help with this, by the way.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Exporting quiz scores from powerpoint to excel spreadsheet/word	rjagile	PowerPoint	1	02-08-2016 02:26 PM
Ad a quiz with different scores for each question and with final score at the end	Amadeus	PowerPoint	0	09-16-2014 04:24 AM
Scores returning ranked results	TerryStevenson	Excel	1	09-16-2013 12:20 PM
Interactive Quiz using PPT 2010	TimC	PowerPoint	3	07-08-2013 11:33 PM
Keeping scores in ppt, please please help	piper7971	PowerPoint	0	07-24-2010 07:10 PM