Question

Integer Math- Console based---uses Windows Form in Visual Basic  

Create an application that uses random integers to test the user’s knowledge of arithmetic. Let the user choose from addition, subtraction, multiplication, and division. The integers used in the problems should range from 20 to 120. When giving feedback, use color to differentiate between a correct answer response, versus an incorrect answer response. Also check for non-integer input. Preparing division problems requires special consideration because the quotient must be an integer. Therefore, you can use a loop to generate new random values for the second operand until you find one that divides the first operand evenly. Use the Mod operator to verify that the integer division remainder is zero.

For Visual Basic!

Answer 1

Code

Public Class Form1
Dim r As Random = New Random
Dim no1, no2 As Integer
Private Sub rdbAdd_CheckedChanged(sender As Object, e As EventArgs) Handles rdbAdd.CheckedChanged
txtAnswer.Clear()
txtAnswer.BackColor = Color.White
no1 = randomInt()
no2 = randomInt()
lblOperation.Text = "+"
txtNumber1.Text = no1.ToString()
txtNumber2.Text = no2.ToString()
End Sub
Public Function randomInt() As Integer
Return r.Next(20, 120)
End Function

Private Sub rdbSub_CheckedChanged(sender As Object, e As EventArgs) Handles rdbSub.CheckedChanged
txtAnswer.Clear()
txtAnswer.BackColor = Color.White
no1 = randomInt()
no2 = randomInt()
lblOperation.Text = "-"
txtNumber1.Text = no1.ToString()
txtNumber2.Text = no2.ToString()
End Sub

Private Sub rdbMul_CheckedChanged(sender As Object, e As EventArgs) Handles rdbMul.CheckedChanged
txtAnswer.Clear()
txtAnswer.BackColor = Color.White
no1 = randomInt()
no2 = randomInt()
lblOperation.Text = "*"
txtNumber1.Text = no1.ToString()
txtNumber2.Text = no2.ToString()
End Sub

Private Sub rdbDiv_CheckedChanged(sender As Object, e As EventArgs) Handles rdbDiv.CheckedChanged
txtAnswer.Clear()
txtAnswer.BackColor = Color.White
no1 = randomInt()
lblOperation.Text = "/"
txtNumber1.Text = no1.ToString()
Do
no2 = randomInt()
If no1 Mod no2 = 0 Then
Exit Do
End If
Loop
txtNumber2.Text = no2.ToString()

End Sub

Private Sub btnCheckAns_Click(sender As Object, e As EventArgs) Handles btnCheckAns.Click
Dim userAnswer = txtAnswer.Text

Try
Integer.TryParse(txtAnswer.Text, userAnswer)
If rdbAdd.Checked = True Then
If Val(txtAnswer.Text) = no1 + no2 Then
txtAnswer.BackColor = Color.Green
Else
txtAnswer.BackColor = Color.Red
End If
End If
If rdbSub.Checked = True Then
If Val(txtAnswer.Text) = no1 - no2 Then
txtAnswer.BackColor = Color.Green
Else
txtAnswer.BackColor = Color.Red
End If
End If
If rdbMul.Checked = True Then
If Val(txtAnswer.Text) = no1 * no2 Then
txtAnswer.BackColor = Color.Green
Else
txtAnswer.BackColor = Color.Red
End If
End If
If rdbDiv.Checked = True Then
If Val(txtAnswer.Text) = no1 / no2 Then
txtAnswer.BackColor = Color.Green
Else
txtAnswer.BackColor = Color.Red
End If
End If
Catch ex As Exception
MsgBox("Please enter Intger")
End Try
End Sub
End Class

Design

output

If you have any query regarding the code please ask me in the comment i am here for help you. Please do not direct thumbs down just ask if you have any query. And if you like my work then please appreciates with up vote. Thank You.