"Math Helper"

Public Class Form1

    Dim number1, number2, randomoperator, answer As Double

    'randomizer
    Public Function Rand(ByVal Low As Long,ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd()) + Low
    End Function

    Private Sub NewProblemButton_Click(sender As Object, e As EventArgs) Handles NewProblemButton.Click
        number1 = Rand(1, 100)
        number2 = Rand(1, 100)
        randomoperator = Rand(1, 4)
        'sets label as the random number assigned
        Number1Label.Text = number1
        Number2Label.Text = number2

        'I assigned 1-4 as +,-,*,/
        If randomoperator = 1 Then
            OperatorLable.Text = "Plus"
            answer = number1 + number2
        ElseIf randomoperator = 2 Then
            OperatorLable.Text = "Minus"
            answer = number1 - number2
        ElseIf randomoperator = 3 Then
            OperatorLable.Text = "Times"
            answer = number1 * number2
        ElseIf randomoperator = 4 Then
            OperatorLable.Text = "Divided by"
            answer = number1 / number2
            answer = Math.Round(answer, 2)
        End If


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CheckAnswerButton_Click(sender As Object, e As EventArgs) Handles CheckAnswerButton.Click
        Dim humaninput As String = InputTextBox.Text
        'if nothing it put in
        If humaninput = "" Then
            CorrectorIncorrectLabel.Text = "Incorrect! X"
        Else
            'if something is put in, program breaks upon strings being added
            If humaninput = answer Then
                CorrectorIncorrectLabel.Text = "Correct! √"

            Else
                CorrectorIncorrectLabel.Text = "Incorrect! X"
            End If
        End If
    End Sub

    Private Sub ShowAnswerButton_Click(sender As Object, e As EventArgs) Handles ShowAnswerButton.Click
        CorrectorIncorrectLabel.Text = answer
    End Sub
End Class