求vb大佬康康这道题

Private Sub Form_Load()

Me.AutoRedraw = True

Dim i As Integer, j As Integer

Dim sum As Integer, n As Integer

Dim m As Integer

For i = 1 To 1000

For j = 1 To i - 1

If i Mod j = 0 Then

sum = sum + j

n = n + 1

End If

Next

If i = sum Then

Print i; "=";

For j = 1 To i - 1

If i Mod j = 0 Then

m = m + 1

Print j;

If m <> n Then Print "+";

End If

Next

Print

End If

sum = 0

m = 0

n = 0

Next

End Sub