Imprimir todos los números perfectos comprendidos entre 1 y 10,000

[Dann1]

Que tal amigos,

Pues sí,

Lo del título es mi gran problema,

Soy estudiante de Ingeniería Industrial y estoy llevando una materia llamada Algoritmo Computacional,

Me están llevando a procesar los flujogramas a través de la programación en QB64,

Y quisiera ver si me pueden dar una mano por favor,

Tratando de comprender logré hacer una compilación que me imprime si es Perfecto o No, un número cualquiera, pero no logro entender como hacer para que se ejecute y me imprima los perfectos comprendidos entre 1 y 10,000,

Me pueden dar una manor por favor?

Aquí el detalle del que Yo hice, el cuál determina si un Número es perfecto o no, y lo imprime, lo que no comprendo es donde debo colocar el contador para que lleve la secuencia de acumulación de todos los perfectos comprendidos entre 1 y 10,000 y los Imprima,

Chékenlo:

Código:

CLS
Z = 1
H = 0
R = 0
INPUT "INGRESE UN VALOR:", N
DO
    IF N MOD Z = 0 THEN
        H = H + Z
    END IF
    Z = Z + 1
LOOP WHILE Z < N
IF N = H AND N = Z THEN
    PRINT "EL NUMERO ES PERFECTO:", N
ELSE
    PRINT "EL NUMERO NO ES PERFECTO"
END IF
END

Favor de darme una mano,

Gracias!


Saludos cordiales.