[Course]VB Day 8

 
Public Class Form1
Dim ANSWER As Integer



Private Sub BTNcheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNcheck.Click
Dim yourANS As Integer = Val(Me.TXTanswers.Text)
If yourANS = ANSWER Then
Me.LBLcorrect.Text = "correct!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Else
Me.LBLcorrect.Text = "Wrong!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
End If
End Sub
Private Sub BTNprob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNprob.Click
Dim numPick As New Random
Dim num1 As Integer
Dim num2 As Integer
Dim problem As String

num1 = numPick.Next(1, 11)
num2 = numPick.Next(1, 11)
If Me.RADadd.Checked Then
problem = num1.ToString & " + " & num2.ToString
Me.lblProblems.Text = problem
ANSWER = num1 + num2
ElseIf Me.RADmulti.Checked Then
problem = num1.ToString & " * " & num2.ToString
Me.lblProblems.Text = problem
ANSWER = num1 * num2
Else
problem = num1.ToString & " - " & num2.ToString
Me.lblProblems.Text = problem
ANSWER = num1 - num2
End If

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