vb 编写程序，求1000 以内的完全数。完全数指一个数的 所有因子（不含本身）之和 等于该数本身

下面这程序能实现你的功能，，不过。该代码不能用于实际，，，因为循环次数太多了。不过。比较适合你这句话，“用最简单的方法做，不要太深奥哦。” 呵呵。希望对你有帮助

'需要控件:command1
Private Sub Command1_Click()

Print "1~1000完全数有:";
For i = 1 To 1000
s = 0
For j = 1 To i - 1
If (i Mod j) = 0 Then s = s + j
Me.Caption = "正在计算: " & i
DoEvents
Next j
If s = i Then
Print i;: strdata = strdata & s & ","
End If
Next i
Print strdata

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

saogegood 写的太好了啊！
无能为力！！