1. 魔法世界有一个毕达哥拉斯学派,他们将一个数如果恰好等于它的因子之和,则称它为“完美数”。并且认为完美数具有神奇的魔力。例如6的因子为1、2、3,而6=1+2+3,因此6是“完美数”。创始人毕达哥拉斯说:“6象征着完满的婚姻以及健康和美丽,因为它的部分是完整的,并且其和等于自身。”

小明同学想利用所学的Python编程,找出1000之内(包括1000)的所有完美数。程序代码如下:

def f(x):

  s=0

  for i in range(1,//2 + I):

  if x%i= 0:

        ①  

  retum S

for i in range(2, 100):

  t= f(i)

  if    ②  

    print(i, "是完美数", sep="")

(1) 程序中函数main部分的算法是(选填:解析箄法/枚举算法)
(2) 在程序①②划线处填入适当的语句表达式。

 ② 

(3) 加框处代码有误,请修改,实现查找1000(包括1000)以内的完美数。
【考点】
枚举算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
能力提升
真题演练
换一批
3. 大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里,从上面数有35个头,从下面数有94只脚,求笼中鸡和兔子各有几只?
现在我们用VB6.0软件设计一个程序,可以解答上述问题,通过界面输入鸡和兔头数和,鸡、兔脚数和。在输入数据合理的情况下,求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。
         
程序运行界面图                      输出结果界面图
程序代码如下:
Private  Sub Command1_Click(  )
Dim x As Integer, y As Integer   ’x是鸡的数量,y是兔的数量
Dim a As Integer, b As Integer   ’a是鸡兔的头数,b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then   ’对数据合理性做出判断
MsgBox "您的输入数据不合理,请重新输入!", , "错误提示"
Text1.Text = ""
Text2.Text = ""
   ①          
x = 0
Do While x     ②    a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有:" & x & "只   兔有:" & y & "只", , "运行结果"
End If
   ③    
Loop
End Sub
Private  Sub Command2_Click(  )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务,完成下面试题。
(1) 程序设计的“灵魂”是(选填“代码”或“算法”)。
(2) 流程图用图框及流程线来表示算法。流程图中的“    ”(菱形框) 用来表示(选填“数据处理”或“选择分支”)。
(3) 程序中的语句“Dim a As Integer”,是将变量a的数据类型定义为
(4) 程序中的语句用到了Msgbox函数,此函数的作用是(选填“输入数据”,“输出数据”或“数据转换”
(5) 程序中①所在的横线处应填写的语句是
(6) 程序中②所在的横线处应填写的语句是
(7) 程序中③所在的横线处应填写的语句是
(8) 如题图一所示的程序运行界面,要改变窗体的标题,使其显示为“鸡兔同笼”应修改窗体控件的(选填“Caption”,“Name”,“Text”)属性。
(9) 本程序中求解问题所用到的算法属于(选填“解析法”、“穷举法”或“递归法”)。
(10) 本程序“鸡兔同笼”窗体中(如程序运行界面图)使用的控件类型有

                                。

综合题 困难