Programación VB del número de narciso

El código del programa para que VB implemente el número de narciso es el siguiente:

Private Sub Command_Click()

For num = 100 To 999

a = num Mod 10

b = num \ 10 Mod 10

c = num \ 100

Si a^3 + b^3 + c^3 = num Luego imprimir num

Siguiente num

End Sub

Los pasos específicos son los siguientes:

1. el programa VB y cree un nuevo proyecto exe estándar

2. Dibuje un botón de comando (nombre: Comando) en el formulario, haga doble clic en el botón de comando para ingresar a la ventana de código.

3. A continuación, comience a escribir el evento de clic del botón de comando. El contenido que se implementará para el evento de clic es el código del programa proporcionado anteriormente.

4. Presione F5 para ejecutar el programa, haga clic en el botón de comando y aparecerán 4 números de narciso: 153, 370, 371, 407.

Información ampliada:

Código para implementar el número de narciso en lenguaje C:

#include?

#include ?

void?main()

{

int?i,j,k,n;

printf("'agua?flor'número?es:");

for(n=100;n<1000;n++){

i=n/100;/* Descomponer el lugar de las centenas*/

j=n/10%10;/*Descomponer el lugar de las decenas*/

k=n%10;/*Descomponer el lugar de las unidades*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%- 5d",n);

}

}

printf("\n");

}

Referencia: Enciclopedia Baidu-Número de Narciso