Pregunta de VB: Encuentre un número perfecto entre 1 y 1000. El formato requerido es como se muestra en la figura.

Privado?Sub?Command1_Click()

Dim?str?As?String,?s?As?Integer,?n?As?Integer,?j?As?Integer

Imprimir?"Todos los números perfectos dentro de 1000 son:"

For?n?=?2?To?1000 s?=?1 For?j?=?2?To ? n?\?2

Si?n?Mod?j?=?0?Entonces?s?=?s?+?j ¿Siguiente?j Si?s?=?n?Entonces

str?=?n?&?"=1"

For?j?=?2?To?n?\?2 If?n?Mod?j?=?0 ? Entonces?str?=?str?&?"+"?&?j

Siguiente?j

Imprimir?str ¿Fin?Si

Siguiente?

End?Sub

Significa que sumando todos los números que son divisibles por sí mismo, es igual a sí mismo. Entonces este número es un número perfecto.