Option Strict On
Option Explicit On
Public Class frmMain
    'Warning!  Does not check form invalid non-numeric input, do this at home if for an exercise
    'if you want the practice.  See the AndAlso operator
    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
        Dim response As Integer
        'Takes in a user's menu response
        response = CInt(InputBox("Enter a question to be answered from the menu on the main form",
                                                "Question Selection"))
        'Keep prompting the user until she gives an answer of 1, 2, or 3
        Do While (response) < 1 Or (response > 3)
            response = CInt(InputBox("Enter a question to be answered from the menu on the main form",
                                                "Question Selection"))
        Loop

        'Give put the corresponding answer in the textbox
        Select Case response
            Case 1
                txtAnswer.Text = "George Washington"
            Case 2
                txtAnswer.Text = "Hugh Henry Brackenridge"
            Case 3
                txtAnswer.Text = "Pittsburgh Steelers"
        End Select

    End Sub
End Class