PROGRAMA NUMEROS PERFECTOS VISUAL BASIC

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


Esto es todo espero que les sirva....saludos!!!!