document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub ButtonSuma_Click()
  2.   Try numero1 = Val(TextBoxMuestra.text)
  3.   Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  4.   operacion = 1
  5.   TextBoxMuestra.text = ""
  6. End
  7.  
  8. Public Sub ButtonLimpiar_Click()
  9.   TextBoxMuestra.text = ""
  10. End
  11.  
  12. Public Sub ButtonResta_Click()
  13.   Try numero1 = Val(TextBoxMuestra.text)
  14.   Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  15.   TextBoxMuestra.text = ""
  16.   operacion = 2
  17. End
  18.  
  19. Public Sub ButtonMuliplica_Click()
  20.   Try numero1 = Val(TextBoxMuestra.text)
  21.   Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  22.   TextBoxMuestra.text = ""
  23.   operacion = 3
  24. End
  25.  
  26. Public Sub ButtonDivide_Click()
  27.   Try numero1 = Val(TextBoxMuestra.text)
  28.   Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  29.   TextBoxMuestra.text = ""
  30.   operacion = 4
  31. End
');