Question

求vb代码。找出 1000以内的所有完全数

一个数如果正好等于它的所有银子之和，就称它为完全数，如6的因子为1，2，3而6=1+2+3 因此6为完全数）

Answer 1

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

Answer 2

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

Answer 3

6,28,496,8128 书上的