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