Dim numCorrect
Dim gradeNum
Dim previousGradeNum

'Example from Page 118
Sub MoreThanSixIsGood()
    If numCorrect > 6 Then
        MsgBox ("You got a lot of questions right.")
    Else
        MsgBox ("You can do better than that.")
    End If
End Sub

'Example from page 119
Sub WhatsMyGrade()
    If gradeNum >= 90 Then
        MsgBox ("You got an A")
    ElseIf gradeNum >= 80 Then
        MsgBox ("You got a B")
    ElseIf gradeNum >= 70 Then
        MsgBox ("You got a C")
    ElseIf gradeNum >= 60 Then
        MsgBox ("You got a D")
    Else
        MsgBox ("You got an F")
    End If
End Sub

'Example from page 119 with more than one thing happening in each section of the IF block
Sub HowDidIDo()
    If gradeNum >= 90 Then
        MsgBox ("You got an A.")
        ActivePresentation.SlideShowWindow.View.Next
    Else
        MsgBox ("You need to work harder.")
        ActivePresentation.SlideShowWindow.View.Previous
    End If
End Sub

'Example from page 120 with nested IF statements
Sub NestedIf()
    If gradeNum >= 90 Then
        MsgBox ("You got an A.")
        If previousGradeNum >= 90 Then
            MsgBox ("Good job. Two A grades in a row!")
        End If
        ActivePresentation.SlideShowWindow.View.Next
    Else
        MsgBox ("You need to work harder.")
        ActivePresentation.SlideShowWindow.View.Previous
    End If
End Sub

'Phony procedure to get a score
Sub GetScore()
    score = InputBox("Type a score between 0 and 100")
    If score >= 0 And score <= 100 Then
        previousGradeNum = score
        ActivePresentation.SlideShowWindow.View.Next
    Else
        MsgBox ("The score must be a number between 0 and 100")
    End If
End Sub

'Phony procedure to get a score
Sub GetScore2()
    score = InputBox("Type a score between 0 and 100")
    If score >= 0 And score <= 100 Then
        gradeNum = score
        numCorrect = score
        ActivePresentation.SlideShowWindow.View.Next
    Else
        MsgBox ("The score must be a number between 0 and 100")
    End If
End Sub