在我国古代《孙子算经》中曾经提出这样一个问题.原文是这样的:“今有物,不知其数,三三数之,剩二;五五数之,剩三;七七数之,剩二;问物几何?”.意思是,这件物品的数量是需满足如下条件的自然数:以3除余2,以5除余3,以7除余2.小李使用VB编写程序,查找最大自然数范围内满足上述条件的全部自然数,在右边列表框(list1)中列出,并统计个数.程序运行界面如图a所示.

(1)在设计程序界面时,应使用图b所示“控件工具箱”中的 33(填写相应编号)添加“开始查找”按钮.
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码.
Private Sub Command1_Click( )
Dim sum As Integer'sum用来统计符合条件的自然数个数
Dim n As Integer,max As Integer
List1.Clear
sum=0
max=①'指定查找范围的最大自然数,在文本框Text1中输入
n=0
Do While n<=max
n=n+1
If ②Then
List1.AddItem Str(n)
③
End If
Loop
List1.AddItem(“共计“+Str(sum)+“个“)
End Sub
程序中①横线处应填入 val(text1.text)val(text1.text)
程序中②横线处应填入 n mod 3=2 andn mod 5=3 and n mod 7=2 (或者n mod 21=2 and n mod 5=3
)n mod 3=2 andn mod 5=3 and n mod 7=2 (或者n mod 21=2 and n mod 5=3
)
程序中③横线处应填入 sum=sum+1sum=sum+1
解决该问题所用到的是 枚举算法枚举算法(填:解析算法/枚举算法).
)
)
【考点】编辑事件处理过程的代码.
【答案】3;val(text1.text);n mod 3=2 andn mod 5=3 and n mod 7=2 (或者n mod 21=2 and n mod 5=3
);sum=sum+1;枚举算法
);sum=sum+1;枚举算法
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/6/27 10:35:59组卷:2引用:1难度:0.3
相似题
-
1.一球从100米高度自由落下,每次落地后反跳回原高度的一半,再下落。编写一个C程序,求它在第10次落地时,其经过了多少米?第10次反弹多高?
发布:2025/1/2 11:0:1组卷:1引用:3难度:0.3 -
2.根据AQI值判断城市的空气质量。若城市的AQI值(整数)不超过100则空气质量优良,否则空气质量有污染。当输入的AQI值为-1时则退出程序。不要更改程序结构,将题中的①②③④填入正确的语句。
city=input(“请输入城市名:”)
AQI=int(input(“请输入空气质量指数AQI的值:”))
①______ AQI!=-1:
if ②______:
print(city,“的空气质量优良。”)
③______:
print(city,“的空气质量有污染。”)
city=input(“请输入城市名:”)
AQI=④(input(“请输入空气质量指数AQI的值:”))
(1)序号①答案为
A.if
B.while
C.for
D.def
(2)序号②答案为
A.AQI>=100
B.AQI<=100
C.AQI>100
D.AQI<100
(3)序号③答案为
A.elif
B.break
C.if
D.else
(4)序号④答案为
A.int
B.float
C.str
D.else发布:2025/1/2 11:0:1组卷:0引用:0难度:0.4 -
3.利用海伦公式求解三角形面积。已知a,b,c为三角形的三条边长,p为三角形的半周长,即p=(a+b+c)/2,计算此三角形面积S的海伦公式为:
。不要更改程序结构,将题中的①②③填入正确的语句。
import math#导入数学模块
def hl(a,b,c):#定义求三角形面积的函数
p=①
s=math.jye.ai(②)#sqrt用于计算算术平方根
return ③#返回面积的值
a,b,c=3,4,5#边长依次赋值
print(“此三角形的面积S为:“,hl(a,b,c))
A. (a+b+c)/2 B.p*(p-a)*(p-b)*(p-c)
C. (a+b+c)*2 D.s
(2)序号②答案为
A.(a+b+c)/2 B.p*(p-a)*(p-b)*(p-c)
C.(a+b+c)*2 D.(3+4+5)/2
(3)序号③答案为
A.p B.s
C.p*(p-a)*(p-b)*(p-c) D.0发布:2025/1/2 11:0:1组卷:0引用:0难度:0.4