Public Class Form1

    Const MIN = 1
    Const MAX = 10
    Dim userAns As Integer
    Dim firstNum As Integer
    Dim secondNum As Integer
    Dim theOperator As Integer
    Private Sub btnCheckAnswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAnswer.Click
        userAns = Val(Me.txtUserAnswer.Text)
        If theOperator = 1 Then
            Me.lblOperator.Text = "*"
            If firstNum * secondNum = userAns Then
                Me.lblResult.Text = "You got it!"
            Else
                Me.lblResult.Text = "WRONG!"
            End If
        End If
        If theOperator = 2 Then
            Me.lblOperator.Text = "+"
            If firstNum + secondNum = userAns Then
                Me.lblResult.Text = "You got it!"
            Else
                Me.lblResult.Text = "WRONG!"
            End If
        End If
        If theOperator = 3 Then
            Me.lblOperator.Text = "-"
            If firstNum - secondNum = userAns Then
                Me.lblResult.Text = "You got it!"
            Else
                Me.lblResult.Text = "WRONG!"
            End If
        End If
        If theOperator = 4 Then
            Me.lblOperator.Text = "/"
            If firstNum / secondNum = userAns Then
                Me.lblResult.Text = "You got it!"
            Else
                Me.lblResult.Text = "WRONG!"
            End If
        End If
    End Sub

    Private Sub btnNewProblem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewProblem.Click
        firstNum = Int((MAX - MIN + 1) * Rnd() + MIN)
        secondNum = Int((MAX - MIN + 1) * Rnd() + MIN)
        theOperator = Int((4 - 1 + 1) * Rnd() + 1)
        If theOperator = 1 Then
            Me.lblOperator.Text = "*"
        End If
        If theOperator = 2 Then
            Me.lblOperator.Text = "+"
        End If
        If theOperator = 3 Then
            Me.lblOperator.Text = "-"

        End If
        If theOperator = 4 Then
            Me.lblOperator.Text = "/"
        End If
        Me.lblFirstNum.Text = firstNum
        Me.lblSecondNum.Text = secondNum
    End Sub

    Private Sub btnShowAnswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowAnswer.Click

        If theOperator = 1 Then
            MessageBox.Show("The answer is " & firstNum * secondNum)
        End If
        If theOperator = 2 Then
            MessageBox.Show("The answer is " & firstNum + secondNum)
        End If
        If theOperator = 3 Then
            MessageBox.Show("The answer is " & firstNum - secondNum)
        End If
        If theOperator = 4 Then
            MessageBox.Show("The answer is " & firstNum / secondNum)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub txtUserAnswer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUserAnswer.TextChanged
        Me.lblResult.Text = Nothing
    End Sub
End Class