VB的完数编程问题~

来源：百度知道 编辑：UC知道 时间：2024/06/02 14:29:30
输出1000之内的所有完数~完数只指一个书恰好等于他的因子之和，如6的因子是1，2，3，~而6=1+2+3 所以6就是完数~
请高手写出程序的时候做出适当的解释要不我看不懂 谢谢

Private Sub Form_Click()
Dim num%, sum#
num = 1000
For i = 1 To num
sum = 0
For j = 1 To i - 1
If i Mod j = 0 Then sum = sum + j
Next j
If sum = i Then Print i
Next i
End Sub
其中sum为其因子之和,很容易看懂的....