Programación VB Encuentra números primos perfectos entre 100 y 900. Lo que quiero decir con un número primo impecable es un número que es en sí mismo un número primo.
Creo que esta pregunta es difícil para los principiantes. El código es el siguiente y los resultados de ejecución son los anteriores.
Línea por línea, escrita a mano, se puede utilizar para pruebas personales.
¿Privado?Sub?Command1_Click()
Dim?a,?b,?c,?d?As?Integer
b?=?2 Para ?a?=?100?A?900 c?=?0 d?=?0 For?b?=?2?A?a?-?1
Si?a?Mod?b? =?0?Entonces c?=?1
¿Fin?Si es siguiente?b
Si?c?=?0?Entonces
y?=? a?\?100?+? ((a?\?10)?Mod?10)?*?10?+? (a?Mod?10)?*?100
Para?b? =?2?A?y?-?1
Si?y?Mod?b?=?0?Entonces d?=?1
Fin?Si Siguiente?b Si ??El número primo inverso es: "? &?y End?If
Fin?If Next?a
End?Sub