VB 编程，急 ， 请教大师求助！！！

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:38:51
求2到1000的完全数[因子之和等于它本身的数为完全数，例如28的因子为1、2、4、7、14 且1+2+4+7+14=28，则28是完全数]。
freboys - 助理 二级 的回答看不懂
怎么没有PRINT呢

Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = 2 To 1000
For j = 1 To i - 1
If i Mod j = 0 Then sum = sum + j
Next
If i = sum Then Print i & "是完全数"
sum = 0
Next
End Sub

s=0
str=""
for i=2 to 1000
for j=1 to i
if i%j=0 then
s=s+j
end if
next j
if s=i then
str=str&":"&i
end if
next i

Private Sub Command1_Click()
Dim i, j, S As Long
S = 0: i = 0
For j = 2 To 1000
For i = 1 To j - 1
If j Mod i = 0 Then
S = S + i

End If
Next i
If S = j Then Print j
S = 0
Next j

End Sub