¿La programación más sencilla para determinar si un número es primo o compuesto?

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

'2. Tiene un factor (factor) mayor que 1 pero menor que él mismo;'

'3. Tiene al menos tres factores (factores);'

'4. No es ni 1 ni número primo (número primo);'

'5. Tiene al menos un factor primo de números no primos.

Subcomando privado1_Click()

Dim n, i, j

n = Val(InputBox("¡Ingrese un número entero positivo!"))

Para i = 2 To Sqr(n)

Si n Mod i = 0 Entonces

j = j 1

Si j gt; = 3 Entonces

MsgBox "¡¡N es un número compuesto!!"

Salir de Sub

End If

End If

Siguiente

MsgBox "¡¡N es un número primo!!"

End Sub