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
2 comentarios
Me podrias explicar para que es el option explicit
ReplyOption Explicit se utiliza para forzar la declaracion de variables antes de usarlas en cierto modulo de codigo. De este modo, si intentamos usar una variable sin declararla el compilador nos da un error.
ReplyPublicar un comentario