Informatica
Dim operando1 As Double
Dim operando2 As Double
Dim Operacion As String
Dim Var As Double
Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Btn3.Click
If TxtResultado.Text = "0" Then
TxtResultado.Text = "3"
Else
TxtResultado.Text = TxtResultado.Text & "3"End If
End Sub
Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
If TxtResultado.Text = "0" ThenTxtResultado.Text = "1"
Else
TxtResultado.Text = TxtResultado.Text & "1"
End If
End Sub
Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btn2.Click
If TxtResultado.Text = "0" Then
TxtResultado.Text = "2"
Else
TxtResultado.Text = TxtResultado.Text & "2"
EndIf
End Sub
Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
If TxtResultado.Text = "0" Then
TxtResultado.Text ="4"
Else
TxtResultado.Text = TxtResultado.Text & "4"
End If
End Sub
Private Sub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn5.Click
If TxtResultado.Text = "0" Then
TxtResultado.Text = "5"
Else
TxtResultado.Text = TxtResultado.Text & "5"
End If
EndSub
Private Sub Btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
If TxtResultado.Text = "0" Then
TxtResultado.Text = "6"Else
TxtResultado.Text = TxtResultado.Text & "6"
End If
End Sub
Private Sub Btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...
Regístrate para leer el documento completo.