第2单元 编程计算 知识点题库
-
（1） 在窗体中要显示玫瑰花图像（文件名为flower.bmp），需添加图像框image1，并设置其属性（单选，填字母：A ．Image/B ．Pictrue/C ．Caption/D ．Text）的值为“flower.bmp”。
-
（2） 为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim sum As Integer, a As Integer, b As Integer
Dim i As Integer, c As Integer, d As Integer
List1.Clear
sum = 0 '玫瑰花个数
For i = 1000 To 9999
a = i Mod 10 '求个位上的数字
b =① '求十位上的数字
c = i \ 100 Mod 10 '求百位上的数字
d = i \ 1000 '求千位上的数字
If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then
List1.AddItem Str(i)
②
End If
Next i
Label1.Caption = "玫瑰花个数为：" + Str(sum)
End Sub
-
（3） 解决该问题主要采用的算法是
Dim x As Integer，y As Integer
x=2：y=3
If x+y=5 Then x=x+2
y=x+y
该程序段运行后，x，y的值为（ ）
| Python程序代码 | 流程图 |
| s= 1 for i in range(1, ① )： if i%2!=0： ② print (s) | |
则程序中划线①和②处应填入的是( )
s = "Fr0lyympWics"： s1 = "FryW"：w = 1
For i = 1 To Len(s1)
For j=w To Len(s)
If Mid(s1，i，1) = Mid(s，j，1) Then
w =j+1： Exit For
Else
c=c+Mid(s，j，1)
End If
Next j
Next i
执行该程序段后，变量c的值是（ ）
a = [10， 5， 2， 11， 7，6]
c=0
i = 0
while i < len(a):
if a[i] % 2 == 0:
c -= a[i]
else:
c += a[i]
i =i + 1
print(c)
程序执行后，输出的结果是
s="ABAABABBAB"
x=0: pos=1
For i= 1 To Len(s)
If Mid(s, i,1)="A" Then x=x+1
If 
Then
List1.AddItem Str(pos) + ":" + Str(i)
End If
Next i
上述程序段中方框处的可选语句为：
①i-pos=x ②i-x=x ③pos=i ④pos=i+1
则(1)(2)处的语句依次可为（ ）
|
请输入整数n： 1000 6 28 496 共找到3个完美数！ |
-
（1） 整数10的真因子之和为(填数字)。
-
（2） 实现上述功能的Python程序如下，请在划线处填入合适的代码。
def perfect(x) ：
mysum = 0
for i in range(1，x) ：
if x & % i==0：
mysum += i
if
return True
else：
return False
n = int(input('请输入整数n： '))
c=0
for i in range (1，n+1) ：
if
print (i)
print('共找到'，c， '个完美数！ ')
请在划线处填入合适的代码
f=open("支出.txt","r")
mx=f.read()
print(mx)
t="";s=0
for i in mx:
if :
t=t+i
flag=True
elif flag:
s=s+int(t)
t=""
flag=False
if flag:
print("一共支出：",str(s),"元")
s=0
For i in range（10）：
s＝s＋i
