以下问题中最适合用解析算法解决的问题是（）

0 返回首页

1. 以下问题中最适合用解析算法解决的问题是（）

A. 将各班篮球比赛的成绩按从高到低的顺序进行排序 B. 居民电费的阶梯电价计算方法 C. 求三位正整数中的“水仙花数” D. 找出家中常备药中的过期药

【考点】

解析算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

单选题普通

能力提升

变式训练

拓展培优

真题演练

换一批

1. 用火柴棒，摆出下面的的自然数。

下列说法正确的是（）

A. 可以用6根火柴棒摆放出0、9、13 B. 可以用6根火柴棒摆放出0、8 C. 6根火柴棒能摆放的最大数是111 D. 可以用6根火柴棒摆放出0、6、5

单选题普通

2. 有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13……要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：

Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

a = b: b = c

c = a + b

s = s + Str(c)

i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（）

A. 把c<=10000改为 c>10000 B. 把i<100改成i<=100 C. 把i=i＋1移到Do While c<=10000 and i<100下面 D. 把语句c=a+b移到a=b：b=c的上面

单选题普通

3. 有如下 VB 程序段：

Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Val(Text1.Text)

t = 0

For q = p+ 1 To 2 * p

s = (p * q) Mod (q - p)

If s = 0 Then

t = t+ 1

End If

Next q

Label1.Caption = Str(t)

该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（）

A. 3 B. 4 C. 5 D. 6

单选题困难

1. 【加试题】神性的数学黑洞数6174。一个任意的四位正整数（四位数字完全相同除外），将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。如取四位数5462，按以上方法作运算如下：

①6542-2456=4086 ②8640-0468=8172 ③8721-1278=7443 ④7443-3447=3996

⑤9963-3699=6264 ⑥6642-2466=4176 ⑦7641-1467=6174

编写程序实现实现上述功能。从文本框Text1中输入一个任意的数字不完全相同的四位正整数，在文本框Text2中输出掉进黑洞的步数。实现上述功能的VB代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

Dim a(1 To 4) As Integer, c As Integer, t As Integer

Dim x As Integer, y As Integer, i As Integer, j As Integer

x = Val(Text1.Text)

c = 0

Do While x <> 6174

For i = 1 To 4 '把四位正整数x的每一位数字取出并存放到数组a中

a(i) = x Mod 10

' （1）

Next i

For i = 1 To 3

For j = i + 1 To 4

If Then ' （2）

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

x = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4)

y = a(1) + a(2) * 10 + a(3) * 100 + a(4) * 1000

x = x - y

c = c + 1

Loop

Text2.Text = Str(c)

End Sub

⑴ ⑵

综合题困难

2. 小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer 'n为试题计数器,s为得分

Dim a, b As Integer 'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click() ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

Label1.Caption = "No：" + Str(n)

a = Int(Rnd * 100) 'a，b为运算数，且要求a不小于b

b = Int(Rnd * 100)

If Then t = a: a = b: b = t '(1)

If Rnd > 0.5 Then c = "+" Else '(2)

Label5.Caption = Str(a) + c + Str(b) + "="

Text1.Text = ""

Else

Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click() ‘判断按钮

If c = "+" Then

If a + b = Val(Text1.Text) Then s = s + 10

Else

If Then s = s + 10 '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

综合题困难

1. 校内阅卷已经普遍采用网上阅卷模式，其中客观题无需评阅，扫描过程中自动识别，扫描结束即生成成绩，准确率高。现有一道多选题，即从“ABCD”4个选项中任意选择2个及2个以上。

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while ① :

t=i

s=""

c=0

for j in range(4):

if t%2==1:

s= ②

c+=1

③

if ④ :

combs.append(s) # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)

(1) 上述程序中，用到的主要算法是（单选，填字母：A .解析算法/B .枚举算法）

(2) 请完成程序填空，在划线上填入合适的代码。

① ② ③ ④

综合题困难

2. 利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p=(a+b+c)/2，计算此三角形面积S的海伦公式为： $\text{[math]}$ 。不要更改程序结构，将题中的①②③填入正确的语句。

import math # 导入数学模块

def hl(a, b, c): # 定义求三角形面积的函数

p = ①

s = math.sqrt(②) # sqrt用于计算算术平方根

return ③ # 返回面积的值

a, b, c = 3, 4, 5 # 边长依次赋值

print("此三角形的面积S为：", hl(a, b, c))

(1) 序号①答案为：（） 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

单选题普通

3. 某超市打折促销，规定如下：

①购物未超过500元按原价支付；

②购物超过500元但未超过1000元,超过500元部分按9折优惠计价；

③购物超过1000元但未超过1500元,超过1000元部分按8折优惠计价；

④购物超过1500元但未超过3000元,超过1500元部分按7折优惠计价；

⑤购物超过3000元,超过3000元部分按6折优惠计价。

$\text{[math]}$

(1) 根据以上规定,假定购物货款为x元、实付金额为y元，则可利用分段函数来解决这一问题，并得到解决这一问题的计算模型：

这个过程属于编写程序解决问题中的。（①调试运行程序 ②分析问题 ③设计算法 ④问题解决 ⑤编写程序）

(2) 解决此问题的算法如图所示：

由图可知，解决此问题的算法是（选填“穷举法”、“解析法”、“枚举法”、“分治法”）；

(3) 由图可知，解决此问题运用到的主要控制结构是；

(4) 上图中，图形1、3表示算法的功能；

(5) 上图中，图形2表示算法的功能；

(6) 上图中，图形2中应填入的条件是。

综合题困难

1. 用VB程序解答百鸡问题

我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。题曰：鸡翁一，他钱五；鸡母一，值钱三；鸡雏三，值钱一：百钱买百鸡，问鸡翁、母、雏各几何？

请把以下算法选项填入到程序语句相对应的位置：

设i，j，k分别代表鸡翁、鸡母、鸡雏的只数。首先确定i，j，k的取值范围：

A 、若100个钱全买鸡母，则最多可买33只，即j的取值范围是0~33。

B 、若100个钱全买鸡翁，则最多可买20只，即i的取值范围是0~20。

C 、当i，j在各自的取值范围内确定某个值后，则鸡雏的只数，k=100-i-j也确定了。

D 、让i从0变化到20，当i取某值时再让j从0变化到33，当j取某个值时，k的值也定了。如果i*5+j*3+k/3=100成立则i，j，k当前的值就是答案。

先在窗体上绘制一个命令按钮，名称为Command1，编写命令按钮的单击事件。实现以上算法的程序如下：

Private Sub Command1_Click( )

For i = 0 To 20

For j= 0 To 33

k=100-i-j（）

If i*5+j*3 + k/ 3 = 100 Then

Print “鸡翁、鸡母、鸡雏分别为"& i & " " & j & " " & k & "只"

End if

Next j，

Next i

End Sub

请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有只。

填空题普通