求完数（完美数）。一个数恰好等于除它本身外的因子之和，这个数就称为完数。例如28除本身之外的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完数。下列Visual Basic程序用于查找2～10000中的所有完数，并将结果显示在列表框List1中，程序运行界面如图1所示。其中方框内程序对应的流程图如图2所示
程序代码如下：
Private Sub Command1_Click （ ）
Dim i As Integer,t As Integer,s as integer
|
For x=2 To 10000 s=0 For i=1 To x\2 If x Modi=0 Then s=② End If Next i If s=xThen List1．AddItem① End If Next x End sub |
枚举算法
枚举算法
。 （选填：解析算法/枚举算法）（2）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整：
程序中①横线处应填入
str（s）或str（x）
str（s）或str（x）
。程序中②横线处应填入
s+i
s+i
。【考点】枚举算法及程序实现．
【答案】枚举算法；str（s）或str（x）；s+i
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/6/27 10:35:59组卷：8引用：1难度：0.2
相似题
-
1．以下问题，适合用枚举法解决的是（ ）
发布：2024/11/8 11:30:1组卷：2引用：1难度：0.8 -
2．如果一个4位数恰好等于它的各位数字的4次方和，则这个数被称为“玫瑰花”数。例如1634就是一个玫瑰花数：1634=14+64+34+44。如果要求出所有的玫瑰花数，下列算法合适的是（ ）
发布：2024/11/16 22:30:5组卷：7引用：2难度：0.5 -
3．若一个三位数abc,满足abc=a3+b3+c3，则称abc为水仙花数。如三位数153满足13+53+33=1+125+27=153，则153是水仙花数。请把所有满足条件的水仙花数输出。
（1）分析问题。由题意可知，三位数的范围是100～999，我们可以让计算机一一检查每一个三位数，输出其中的水仙花数。设百位数字、十位数字、个位数字分别是a,b,c（0＜a≤9，0≤b≤9，0≤c≤9），这个三位数就可以表示为100×a+10×b+c,如果它正好等于各位数字的立方和，那么它就是水仙花数。
（2）设计算法。
①令a从1～9穷举；
②令b从0～9穷举；
③令c从0～9穷举；
④如果100×a+10×b+c和a3+b3+c3相等，那么就把它输出。
⑤转步骤③，重复执行③④⑤，直到c穷举完毕；
⑥转步骤②，重复执行②③④⑤⑥，直到b穷举完毕；
⑦转步骤①，重复执行①②③④⑤⑥⑦，直到a穷举完毕；
⑧跳出循环，结束。
（3）编写程序。
（4）调试程序。发布：2024/8/7 8:0:9组卷：1引用：0难度：0.4
