Solución de programación VB: Si la suma de los factores de un número es igual al número mismo

No recuerdo muy bien el formato del lenguaje VB. Pero tu algoritmo es obviamente incorrecto.

Primero, establezca b en 0 en el nivel de i,

Para i = n A m

-- b = 0

Para j = 1 Para i - 1---simplemente empújelo a la raíz cuadrada de i Para j = 1 Para sqrt(i)

Si i Mod j = 0 Entonces

b = b + j

---------La gente dice que los factores, es decir, 28=2*14, 2 y 14 se suman,

----- -----b =b +i/j; Agregue este valor y agregue i, que es 28 = 1 * 28, y agregue 28 aquí

End If

Siguiente j

Si i = b Entonces -----------Si se suma i arriba, b-i se resta de abajo

Imprimir b

Finalizar si

Siguiente i