Interactive Quiz with Scores at the end?

JohnWilson · #1 03-07-2016, 08:07 AM

That is true but you don't really understand what return a result means. For your use the sub will work just fine. Functions usually perform calculations and then return a result.

For example if you recorded numberCorrect and numberWrong you could return the % age correct with a Function

Simple (trivial) example

Code:

Sub chexPercent()
Dim Correct As Long
Dim Wrong As Long
Correct = 3
Wrong = 4
MsgBox getpercent(Correct, Wrong) & "%"
End Sub

Function getpercent(numberCorrect As Long, numberWrong As Long) As Single
Dim totalTried As Long
totalTried = numberCorrect + numberWrong
getpercent = (numberCorrect / totalTried) * 100
End Function

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