> Public Class Form1
>
>     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
>
>     End Sub
>
>     Private Sub txtOperand1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtOperand1.TextChanged
>         Me.radaddition.Checked = False
>         Me.raddivision.Checked = False
>         Me.radexponentiation.Checked = False
>         Me.radintdivision.Checked = False
>         Me.radradmoddivision.Checked = False
>         Me.radmultiplication.Checked = False
>         Me.radsubtraction.Checked = False
>         Me.lblexpressionvalue.Text = Nothing
>     End Sub
>
>     Private Sub txtOperand2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles textoperand2.TextChanged
>         Me.radaddition.Checked = False
>         Me.raddivision.Checked = False
>         Me.radexponentiation.Checked = False
>         Me.radintdivision.Checked = False
>         Me.radradmoddivision.Checked = False
>         Me.radmultiplication.Checked = False
>         Me.radsubtraction.Checked = False
>         Me.lblexpressionvalue.Text = Nothing
>     End Sub
>
>     Private Sub raddivision_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles raddivision.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) + Val(Me.textoperand2.Text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
>
>     Private Sub radaddition_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radaddition.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) + Val(Me.textoperand2.text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
>
>     Private Sub radexponentiation_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radexponentiation.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) ^ Val(Me.textoperand2.text)
>     End Sub
>
>     Private Sub radintdivision_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radintdivision.Click
>         Dim answer As Double = Val(Me.txtOperand1.Text) \ Val(Me.textoperand2.Text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
>
>     Private Sub radradmoddivision_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radradmoddivision.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) Mod Val(Me.textoperand2.Text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
>
>     Private Sub radmultiplication_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radmultiplication.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) + Val(Me.textoperand2.Text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
>
>     Private Sub radsubtraction_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radsubtraction.Click
>         Dim answer As Double
>         answer = Val(Me.txtOperand1.Text) - Val(Me.textoperand2.Text)
>         Me.lblexpressionvalue.Text = answer
>     End Sub
> End Class
>