Prolog - numero perfecto

amigos

cual es el codigo para hallar un numero perfecto

Goal

perfecto(4)

Respuesta : No es numero perfecto

gracias

Cual es la definicion matematica de un numero perfecto????

la definicion matematica es: la suma de sus divisores sea igual al numero

hola estoy cursando "visual basic 6.0" y tengo un problema ;

yo quiero diseñar un programa que me pueda calcular cuando un numero es perfecto.

pero no me sale y queria ver si me pudieras ayudar porfa.

nesecito el codigo en visual basic para un numero perfecto

Module Module1
'Numero perfecto
Sub Main()
Dim Resultado As Integer
For index As Integer = 1 To 8200
Resultado = Perfecto(index)
Console.WriteLine(Resultado)
'Comparo el numero con el total sumado
If Resultado = index Then
Console.WriteLine("El numero " & index & " es PERFECTO: " & Resultado)
Else
Console.WriteLine("El numero " & index & " no es perfecto: " & Resultado)
End If
Next
Console.ReadKey()
End Sub
Function Perfecto(ByVal Numero As Integer) 'Averiguo si el numero es perfecto
Dim Total As Integer
For index As Integer = 1 To Numero - 1
If Numero Mod index = 0 Then
Total = Total + index
End If
Next
Return Total
End Function
End Module

Private Sub Command1_Click()
Dim Num As Integer
Dim Suma As Integer
Dim Temp(1 To 999) As Integer, A As Integer, B As Integer
For i = 1 To 999
Temp(i) = 0
Next i
Suma = 0
A = 1
Num = Val(Text1.Text)
For i = 1 To Num - 1
If Int(Num / i) = Num / i And Num / i <> 0 Then 'determina si es una division entera
Temp(A) = i
A = A + 1
End If
Next i

For i = 1 To 999
If Temp(i) <> 0 Then
Suma = Suma + Val(Temp(i))
Else
Exit For
End If
Next i

If Suma = Num Then MsgBox "ES PERFECTO" Else MsgBox "NO ES PERFECTO"
End Sub

Este código está bien, aun que solo le veo dos pequeños errores, la matriz tiene que empezar desde cero

Dim Temp(1 To 999) no debe de empezar desde 1 si no Dim Temp(0 To 999) y el otro pequeño error es que la variable "B" no se usa xD