Dim k As Integer
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Text1.Text = "1 "
For i = 1 To 1000
k = 0
For j = 1 To i - 1
If i Mod j = 0 Then
k = k + j
If k > i Then
Exit For
End If
End If
Next j
If k = i Then
Text1.Text = Text1.Text & k & " "
Else
'Text1.Text = ""
End If
Next i
End Sub
for i=1 to 1000
s=0
for j=1 to i-1
if i mod j=0 then s=s+j
next
if i=s then print i;
next
6,28,496,8128 书上的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024