Red de conocimiento informático - Material del sitio web - ¿Cómo escribir el código del número de narciso en lenguaje vb?

¿Cómo escribir el código del número de narciso en lenguaje vb?

Este es el código para imprimir todos los números de narciso de tres dígitos:

Subcomando privado1_Click()

Para a = 1 a 9

Para b = 0 a 9

Para c = 0 a 9

Si a * 100 b * 10 c = a^3 b^3 c^3 Entonces

imprimir a * 100 b * 10 c

Finalizar si

Siguiente

Siguiente

Siguiente

Fin del subtítulo