如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如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。