vb Encuentra el número de todos los narcisos entre 100 y 500. El llamado número de narciso es un número de tres cifras cuya suma cúbica es igual a su número original.

Subcomando privado1_Click()Dim x, y, z, s, i, sum As SinglePrint "El número de narcisos es:" suma = 0i = 0Para x = 1 a 9Para y = 0 a 9Para z = 0 A 9s = x * 100 y * 10 zSi s = x ^ 3 y ^ 3 z ^ 3 Entonces suma = suma s i = i 1 Imprimir s, si i Mod 3 = 0 Entonces imprimir Fin IfEnd IfSiguiente zSiguiente ySiguiente xImprimirImprimir "Promedio para " & suma / iEnd Sub