Problema de programación de VB, solicite orientación al maestro, solo haga la primera mitad, ¡espere en línea!
Dim i As Long, j ?As Long 'La variable se usa para controlar los dos niveles del bucle Dim ?he ?As Long ?'Se usa para hacer la acumulación
Dim ?s ?As String ?'Caracteres utilizados para controlar la salida
Imprimir ?"El número perfecto hasta 1000 es:"
Para ?i?=?2?To?1000 ? 'Porque 1 es definitivamente No, así que empieza con 2. Si el profesor especifica que comienza desde 1, está bien
s?=?i?amp;?" ="?amp;?"1"
he?=?1 p>
¿Para?j?=?2?A?i?-?1
Si?i?Mod?j?=?0?Entonces
s ?= ?s?amp;?" "?amp;?j
él?=?él? ?j
Fin?Si
Siguiente?j
p>If?he?=?i?Then?'sugiere que este es un número perfecto
Imprimir?s
Fin?If
¿Siguiente?