在VB程序设计中输出1000以内所有完数

'我刚才试了的，结果是 6，28’496
Private Sub Form_Click()
Dim i, j As Integer
For i = 4 To 1000
temp = 1
For j = 2 To i / 2
If i Mod j = 0 Then
temp = temp + j
End If
Next j
If temp = i Then
Print i
End If
Next i
End Sub