用VB求解1-1000的完备数??

设置一个Lable，一个button,点击BUTTON显示结果。

Private Sub Command1_Click()
Dim m, i, j, s
j = "结果："
For m = 2 To 1000
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next
If s = m Then j = j & m & ","
Next
Label1.Caption = j
End Sub