首先在 i 那層循環 b 要置 0 ，
For i = n To m
-- b = 0
For j = 1 To i - 1---推到 i 的開方就行了 For j = 1 To sqrt(i)
If i Mod j = 0 Then
b = b + j
---------人家說因子， 即28=2*14，2與14都加的，
----------b =b +i/j; 加上這個值其中多+了i，就是28=1*28，這裏多加了28
End If
Next j
If i = b Then -----------如果上面多加了 i 下面減去 b-i
Print b
End If
Next i