Utilice múltiples bucles para programar todos los narcisos en la computadora. Por ejemplo, 153=1^3+5^3+3^3.

Agregue un botón de comando comando1 en el formulario: haga doble clic en comando1 para ingresar al estado de edición de código, ingrese el siguiente código: private sub command1_click() dim i as integer,n as integer dim a as integer, b como entero, c como entero print "El número de narcisos en un entero de tres dígitos es el siguiente:" para n= 100 a 999 a=int(n/100) b=int((n-a*100)/10) c=n-a*100-b* 10 i=a^3+b^3+c^3 si i=n entonces imprima str(i) next n end sub

Adopte si está satisfecho