Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB. Cuando hace clic en el botón comando1, ingrese un número entero, determine si es divisible por 9, 11 o 13 y genere la información correspondiente.

Programación VB. Cuando hace clic en el botón comando1, ingrese un número entero, determine si es divisible por 9, 11 o 13 y genere la información correspondiente.

Private Sub Command1_Click()

Atenuar a como único

Atenuar b como cadena

a = InputBox("Ingrese un número")

Si un Mod 9 = 0 Entonces

b = b amp "Divisible por 9" amp vbCr

Fin

Si un Mod 11 = 0 Entonces

b = b amp; "Divisible por 11" amp vbCr

Finalizar si

Si un Mod 13 = 0 Entonces

b = b amp; "Divisible por 13" amp; "Divisible por 13" amp; "".Divisible por 13" amp; vbCr

Fin

Si un Mod 9lt;gt; 0 Y un Mod 11lt;gt; 0 Y un Mod 13lt;gt; 0 Entonces

b = "No puede ser divisible por 9, 11, 13"

Fin Si

MsgBox b

End Sub