TEMA 11: Programa Operaciones

2. Programa: en este programa utilizamos diversas operaciones para realizar sumas, restas... etc, con dos números que debemos introducir por teclado. Es interesante mirar el tema de Propiedades para revisar aquellas que desconocemos y que se han ido añadiendo.

Public A, B As Integer                        'Declaración de variables públicas
                                                                                              'Añadirlo sección General del Proyecto

Private Sub CmdBorrar_Click()
  TxtNum1.Text = "": TxtNum2.Text = ""  'Borramos el resultado de los cuadros
  TxtResultado = ""
End Sub

Private Sub CmdMayor_Click()
  'Informa que número es mayor
  A = Val(TxtNum1.Text)
  B = Val(TxtNum2.Text)
  If A > B Then TxtResultado.Text = "MAYOR ES N1"
  If A < B Then TxtResultado.Text = "MAYOR ES N2"
  If A = B Then TxtResultado.Text = "SON IGUALES"
End Sub

Private Sub CmdProdSum_Click()
  'Calcula el producto y después lo resta a la suma
  A = Val(TxtNum1.Text)
  B = Val(TxtNum2.Text)
  TxtResultado.Text = Format((A * B) - (A + B))
End Sub

Private Sub CmdProducto_Click()
  'Multiplica dos números y muestra el resultado
  A = Val(TxtNum1.Text)
  B = Val(TxtNum2.Text)
  TxtResultado.Text = Format(A * B)
End Sub

Private Sub CmdResta_Click()
  'Resta N1 - N2 y muestra el resultado
  A = Val(TxtNum1.Text)
  B = Val(TxtNum2.Text)
  TxtResultado.Text = Format(A - B)
End Sub

Private Sub CmdSalir_Click()
  End
End Sub

Private Sub CmdSuma_Click()
  'Suma dos números y muestra el resultado
  A = Val(TxtNum1.Text)
  B = Val(TxtNum2.Text)
  TxtResultado.Text = Format(A + B)
End Sub

Bajate el programa completo haciendo clic en la imagen