Visual Basic - Codigo numeros perfectos.

Life is soft - evento anual de software empresarial
   
Vista:

Codigo numeros perfectos.

Publicado por Diego (2 intervenciones) el 12/03/2010 21:12:39
TEngo este codigo que es para que me vaya dando los numeros perfectos hasta q encuentre 4 de ellos. No se porq al ejecutarlo se me queda colgado el programa. A ver si me podeis ayudar. Gracias.

Option Explicit

Private Sub Command1_Click()
Dim i As Long
Dim b As Long
Dim s As Long
Dim c As Long
Dim iMinusOne As Long
Dim contador As Long

On Error GoTo errHandler

List1.Clear

i = 1
contador = 0
do
Label3.Caption = "Processing number:" & i
iMinusOne = i - 1
s = 0
For b = 2 To iMinusOne
For c = b To iMinusOne
If b * c = i Then
s = s + b + c
End If
Next c
Next b
If s = (i - 1) Then
List1.AddItem i
contador = contador + 1

End If
i = i + 1
Loop While contador <= 4
MsgBox "Done", vbInformation, "Perfect Numbers"
Label3.Caption = ""

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "Perfect Numbers"
End Sub
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:Codigo numeros perfectos.

Publicado por jose (3 intervenciones) el 12/03/2010 22:23:22
iMinusOne arranca en 0 y luego queres hacer un for de 2 hasta 0 hace un ciclo infinito
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

RE:Codigo numeros perfectos.

Publicado por Diego (2 intervenciones) el 13/03/2010 13:45:42
He probado a ponerle un numero mas grande en i como por ejemplo 5 y sigue sin ir. Gracias por tu respuesta.

Un saludo.
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

RE:Codigo numeros perfectos.

Publicado por smokalot (203 intervenciones) el 17/03/2010 15:12:59
Hola!

mmm... me he empezado a leer tu codigo ... xo me he perdido ...

xo mira que he encontrado ... en que lenguaje lo quieres?
# 3 Implementación en lenguajes de programación

* 3.1 Lenguaje Visual Basic .Net
* 3.2 Lenguaje C
* 3.3 Lenguaje PHP
* 3.4 VisualBasic
* 3.5 C#
* 3.6 Haskell
* 3.7 Java
* 3.8 Python
* 3.9 SLE
* 3.10 Fortran 90
* 3.11 Scheme
* 3.12 Batch Script
* 3.13 Extended Pascal

http://es.wikipedia.org/wiki/N%C3%BAmero_perfecto#Lenguaje_C

Suerte,

SMK
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

RE:Codigo numeros perfectos.

Publicado por yooooooooooooo (1 intervención) el 24/03/2010 20:48:49
necesito saber de los num perfectos
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