Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: Ingrese un XY de dos dígitos en el teclado, X es el dígito de las decenas, Y es el dígito de las unidades, programa para calcular el valor de XY y el valor de X*Y

Programación VB: Ingrese un XY de dos dígitos en el teclado, X es el dígito de las decenas, Y es el dígito de las unidades, programa para calcular el valor de XY y el valor de X*Y

¿Privado?Sub?Form_Click()

¿Dim?n?As?Integer,?x?As?Integer,?y?As?Integer

n ?=?Val(InputBox("Ingrese un número de dos dígitos"))

If?n?gt;?9?And?n?lt;?100?Then

x?=?n?\?10

y?=?n?Mod?10

MsgBox?"X Y="?amp;?(x? ?y)? amp ;?vbCrLf?amp;?"X*Y="?amp;?(x?*?y)

Else

MsgBox?"Error de entrada!"

¿Fin?Si

¿Fin?Sub