Module Module1
Sub Main()
Dim i, j, k As Integer
For j = 2 To 1000
k = 0
For i = 1 To j / 2
If j Mod i = 0 Then
k = k + i
End If
Next
If j = k Then
Console.WriteLine("完全数为" & k)
End If
Next
Console.ReadLine()
End Sub
End Module
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024