Public Class frmcalculadora
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbmultiplicacion.CheckedChanged
End Sub
Private Sub rdbsuma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbsuma.CheckedChanged
Dim numero1, numero2 As Double
numero1 = CDbl(txtnumero1.Text)
numero2 = CDbl(txtnumero2.Text)
If rdbmultiplicacion.Checked = True Then
txtresultado.Text = CStr(numero1 * numero2)
End If
If rdbsuma.Checked = True Then
txtresultado.Text = CStr(numero1 + numero2)
End If
If rdbdivicion.Checked = True Then
txtresultado.Text = CStr(numero1 / numero1)
End If
rdbresta.Checked=True Then
txtresultado.Text = CStr(numero1 - numero2)
Select cae true
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtresultado.TextChanged
End Sub
Private Sub lblnumero1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblnumero1.Click
End Sub
Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
End Sub
End Class
