如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。

Sub Main

如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。

Sub Main（）

Dim i, j, sum, t As Integer

sum = 1

For i = 2 To 999

(1)

For j = 2 To i - 1

If （2） Then t = t + j

Next

If（3） Then sum = sum + i

Next

Print“满足条件的数之和为：”, sumEnd Sub

如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。

（1）t = 1； (2)i Mod j = 0； (3)t = i。