'Author:  Eric Heim
'Class:   CS0004

Option Strict On
Option Explicit On

Public Class Form1

    'OK Button Click Event
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        'Switches on the letter grade text box
        Select Case txtLetterGrade.Text
            Case "A", "a"
                txtScore.Text = "90+"
            Case "B", "b"
                txtScore.Text = "89-80"
            Case "C", "c"
                txtScore.Text = "79-70"
            Case "D", "d"
                txtScore.Text = "69-60"
            Case "F", "f"
                txtScore.Text = "59 or below"
            Case Else
                MessageBox.Show("Invalid Letter Grade", "Invalid Letter Grade")
        End Select
    End Sub
End Class