国内特快专递每200克为一个计费单位，200克以内22元，200克以上每续重200克（不足200克以200克计算）8元，现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题，最合适的算法是（）

1. 利用海伦公式求解三角形面积。已知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

单选题普通

2. 自定义函数f的功能是计算自然数n的阶乘值，即f=n！。下面VB程序通过调用函数来计算S=1!+2!+3!+4!+5!+6!:

Function f(n as integer) as long

Dim j As Integer

f=1

For j=1 to n

f=f*j

Next j

End Function

Private Sub Command1_Click()

Dim s As Long, AS Integer

S=0

For i=1 to 6

Next i

Text1.text=str(s)

End Sub

方框中正确的语句是（）

A. s=f(i) B. s=s+f(i) C. s=f(n) D. s=s+f(n)

单选题困难

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

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

填空题普通

2. 补全程序。

已知包含25项的数列：1，2/3，3/5，……，24/47，25/49

问题1：写出该数列的通项公式f_(n)=

问题2：以下是计算s=1+2/3+3/5+……+24/47+25/49的程序，请补全代码。

Dim i As Integer

Dim s As Single

s = 0

For i = 1 To 25

s = s +

Next i

Print s

综合题普通

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

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

填空题普通