Programación en Vb de números perfectos hasta 1000.

La función privada isws (m es un número entero, splus es una cadena) es booleana

I difusa, s

Para i = 1 a m/2

si m Mod i = 0, entonces

s = s i

Terminará si...

Siguiente I

Si s = m, luego, si es un número perfecto, haz un bucle nuevamente para encontrar todos los factores.

Fusiones y Adquisiciones. " =1 " 'Debido a que 1 es el factor de todos los números, encuéntrelo primero y el siguiente ciclo puede comenzar desde 2.

Para i = 2 a m/2

Si m Mod i = 0, entonces

splus = splus amp" " amp;i

Terminará si...

Siguiente yo

isws = True

Otros

isws = False

Terminará si...

Finalizar función

Subform_Click() privado

Atenuar i, sp$

Imprimir "El número perfecto dentro de 1000 es:"

Para i = 1 a 1000

Si es ws(i,sp) entonces Print sp 'sp se pasa por dirección, por lo que el valor obtenido es el último valor excedente generado en la función isws.

Siguiente yo

Conector final