vb编程：

Private Sub Command1_Click()
Dim i%, j%, l&
For i = 1 To 1000
l = 0
For j = 1 To i - 1
If i Mod j = 0 Then l = l + j
Next j
If i = l Then Print i
Next i

End Sub

Private Sub form_Click()
Dim m As Integer, s As Integer, yz(1 To 1000) As Integer
For m = 2 To 1000
s = 0
j = 0
For i = 1 To m - 1
If m Mod i = 0 Then j = j + 1: yz(j) = i
Next
For i = 1 To j
s = s + yz(i)
Next
If s = m Then
Print m; "=";
For i = 1 To j - 1
Print yz(i); "+";
Next
Print yz(j)
End If
Next

End Sub