Problema de VB: genera todos los "narcisos" en forma de dos números por línea.

Tienes que tener un rango, no hay límite superior en el número, no hay límite superior en el número de narcisos. VB no puede contar el número de narcisos con veinte o treinta nombres.

Este es un número de narciso de tres dígitos.

Subcomando privado 1_Click()

Dim n es un número entero, a es un número entero, b es un número entero, c es un número entero

Para i = 100 a 999 pasos 1

a = i \ 100

b = (i - 100 * a) \ 10

c = i - 100 * a - 10 * b

Si a ^ 3 b ^ 3 c ^ 3 = i entonces

Imprimir I

n = n 1

Si n módulo 2 = 0, entonces

Imprimir

Terminará si...

Terminará si...

Siguiente yo

Conector final