Ing. De Redes Y Conectividad
Dim n1, n2, y As Double
Dim opera As Integer
Dim respu As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
n1 = Val(TextBox1.Text)
opera = 3
TextBox1.Text = " "
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click
n1 = Val(TextBox1.Text)
opera = 4
TextBox1.Text = " "
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
n1 = Val(TextBox1.Text)
opera = 1
TextBox1.Text = " "
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click
n1 = Val(TextBox1.Text)
opera = 2
TextBox1.Text = " "
End Sub
Private Sub Button5_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + Str(1)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + Str(2)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickTextBox1.Text = TextBox1.Text + Str(3)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickTextBox1.Text = TextBox1.Text + Str(4)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text +Str(5)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text + Str(6)
End Sub...
Regístrate para leer el documento completo.