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