Para un entero positivo de n dígitos, la suma de la enésima potencia de sus dígitos es igual a este número. Este número se llama número de Armstrong. Por ejemplo, 153=1^3+5^3+3^3, intenta programar

Opción explícita

Subcomando privado1_Click()

Dim n como entero, p como entero

Para n = 100 a 999

p = n

Llamar arm(n, p)

Si p = n Entonces

List1.AddItem (n)

Finalizar si

Siguiente n

Finalizar sub

Función privada arm(ByVal m como entero, q como entero)

m = Medio(CStr(m), 1, 1) ^ 3 + Medio(CStr(m), 2, 1) ^ 3 + Medio(CStr(m), 3, 1) ^ 3

q = m

Función final