“完数”是指一个自然数恰好等于它的因子(不包含本身)之和。如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
Dim d(0 To 9) As Integer
s=Text1.Text
c=0
For i=0 To 9
d(i)=0
Next i
For i=1 To Len(s)
'填空
Next i
Text2.Text=Str(c)
方框处的代码可由以下三部分组成:
①d(t)=i ②t=val(Mid(s,i,1)) ③if d(t)<>0 And i-d(t)>c Then c=i-d(t)
代码顺序正确的是( )
s=0
for i in range(1,7,3):
s=s+i
print(s)
![]()