Visual Basic - porfavor revisen este programa

Life is soft - evento anual de software empresarial
   
Vista:

porfavor revisen este programa

Publicado por ayudaporfavor (3 intervenciones) el 08/05/2008 04:20:14
hola a todos, al hacer correr este programa se traba mi visual basic, no se donde esta el error, porfavor si alguien lo encuentra, el programa trata de definir si un numero entero positivo es feliz o infeliz. este es el codigo:
Dim n, d, s, b As Integer

Private Sub Command1_Click()
MsgBox ("Programa que define si un numero entero positivo es feliz o infeliz")
b = 1
While b = 1
n = InputBox("Ingrese un número entero positivo")
If n >= 0 Then
b = 0
Else
MsgBox ("Ese no es un número entero positivo")
End If
Wend
s = 0
While (n / 10) >= 1
While n Mod 10 >= 0
d = n Mod 10
s = s + (d ^ 2)
n = n / 10
Wend
n = s
s = 0
Wend
If n = 1 Then
MsgBox ("El número es Feliz")
Else
MsgBox ("El número es Infeliz")
End If

End Sub

GRACIAS POR SU AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:porfavor revisen este programa

Publicado por ÑOÑO (2 intervenciones) el 08/05/2008 13:25:15
revisa el segundo while, ahí tienes un bucle sin fin.

para comprobarlo, ejecuta el programa paso a paso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar