分析完善程序。
“完数”是指一个自然数恰好等于它的因子(不包含本身)之和。如6的因子为1,2,3,而6=1+2+3,因此6就是完数。再如28的因子为1,2,4,7,14,而28=1+2+4+7+14,因而28也是完数。
问题:输入一个正整数n,判断该正整数是否为完数。
要判断一个正整数n是否为完数,最简单的方法是:求出1到n-1之间的所有因子和为Sum,如果Sum的值和n的值相同,则n就是完数。
以下代码是判断n是否为完数的程序片段,请你补全代码:
Dim n As Long
Dim Sum As Long ' Sum用来记录n的因子和
n = InputBox(“n=”)
For i = 1 To n-1 ' 求n的因子和Sum
If n Mod i = 0 Then Sum =_________
Next i
If _____________ Then
Print n & “是完数”
Else
Print n & “不是完数”
End If