Me gustaría preguntarte qué está mal con mi programación en VB. La pregunta es: Número de Narciso, la respuesta es 153, 370, 371, 407.
¡Estás equivocado! Te doy otra respuesta
Private Sub Command1_Click()
Atenuar i como entero, j como entero, k como entero, s como entero
Para i = 0 A 9
Para j = 0 A 9
Para k = 0 A 9
s = i * 100 j * 10 k
t = i ^ 3 j ^ 3 k ^ 3
Si s = t Y i lt;gt 0 Entonces imprime s;
Siguiente k
Siguiente j
Siguiente i
Fin Sub