lunes, 11 de junio de 2012



"Programas VIsual Basic"

1° programa
"Suma y Resta"

"suma"
rivate Sub Button1_Click(ByVal sender As System.ObjectByVal e AsSystem.EventArgsHandles Button1.Click

  TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub 

"Resta"
  
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e AsSystem.EventArgsHandles Button2.Click

  TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub 

"salir"

Private Sub Button3_Click(ByVal sender As System.ObjectByVal e AsSystem.EventArgsHandles Button3.Click

End

End Sub

"Borrar"

Private Sub Button4_Click(ByVal sender As System.ObjectByVal e AsSystem.EventArgsHandles Button4.Click

 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox3.Text = ""

 End Sub
           

SUMA


RESTA


No hay comentarios:

Publicar un comentario