Ejemplo 153 es un numero narcisista porque
13 + 53 + 33 = 1 + 125 + 27 = 153
Foto marine - 3 by matmoon
En el programa escribiras un numero entero cualquiera y el te dira si es narcisista o no.
Para este programa sera necesario crear un formulario con un textbox llamado txtvalor y un command button llamado cmdcalcular. Escribir el siguiente codigo.
Dim entrada, salida, i, n As Integer
Option Explicit
Private Sub cmdcalcular_Click()
salida = 0
entrada = txtvalor.Text
n = Len(entrada)
For i = 1 To n
salida = salida + Val(Mid(entrada, i, 1) ^ n)
Next
If txtvalor = salida Then
MsgBox "Es un numeros narcisista"
Else
MsgBox "No es un numeros narcisista"
End If
txtvalor.SetFocus
End Sub
Option Explicit
Private Sub cmdcalcular_Click()
salida = 0
entrada = txtvalor.Text
n = Len(entrada)
For i = 1 To n
salida = salida + Val(Mid(entrada, i, 1) ^ n)
Next
If txtvalor = salida Then
MsgBox "Es un numeros narcisista"
Else
MsgBox "No es un numeros narcisista"
End If
txtvalor.SetFocus
End Sub
Foto marine - 3 by matmoon
