Programación factor vb

Nuevo elemento, comando de 1 botón 1:

1 Es el producto de dos números enteros mayores que 1

2. en sí mismo;

p>

3 Hay al menos tres factores (factores)

4. p>

5. Hay al menos un factor primo Números no primos.

Subcomando privado 1_Click()

Dim i%, j%, m$, n%

J = Fix(Val(InputBox("Ingrese un ¡entero!")))

Si j & lt entonces 1

Imprimir "Error de entrada, no quiero jugar.."

Salir del conector

p>

Terminará si...

m = "": n = 0

Para i = 2 a Int(Sqr(j))

Si j Mod i = 0, entonces

m = m &i&“-”&j/I &vbCrLf

n = n + 1

Terminará si...

Entonces

Si m = " " o n & lt3 entonces

Imprimir j & amp" son números primos !"

Otros

Imprimir j & amp es un número compuesto que contiene los siguientes factores primos: "& vbCrLf & amp; ...luego terminará

Conector final