![]() |
|
|
|
#1
|
|||
|
|||
|
You left out the Public Tally I think then Code:
Public Tally as Integer 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 |
|
| Tags |
| quiz, score |
|
|
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 |