Cómo programar con la consola VB (imprimir el número de narcisos entre 100-999)

' Aplicación de consola VB .NET

Módulo Módulo1

Sub Main()

Dim i, a, b, c Como entero

i=100

Hacer mientras i lt;=999

a=i\100

b=i\10 Mod 10

c = i Mod 10

Si a ^ 3 b ^ 3 c ^ 3 = i Entonces

Console.WriteLine(i) 'Parte de salida de la consola, se puede modificar a otras formas de salida

End If

i = i 1

Loop

End Sub

Finalizar módulo