小张设计了一个“加减运算练习”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 = 0End SubPrivate Sub Command1_Click() ‘出题按钮Randomizen = n + 1If 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 IfEnd SubPrivate Sub Command2_Click() ‘判断按钮If c = "+" Then If a + b = Val(Text1.Text) Then s = s + 10 Else If Then s = s + 10 '(3)End IfLabel3.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. 编写VB程序，实现如下功能：在文本框Text1中输入投资金额，Text2中输入投资的目标金额，Text3中输入投资的年收益率，单击按钮Command1，在文本框Text4中输出达成预期投资目标至少需要的年数。投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×（1+5%），2年后的本息为10000×（1+5%）²。程序运行界面如图所示。

(1) 代码“Private Sub Command1_Click()”中的Command1_Click()是（填字母：A .对象名/B .事件名/C .事件处理过程名/D .方法名）

(2) 为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim pv As Single, fv As Single, rate As Single, n As Integer

pv = Val(Text1.Text)

fv = Val(Text2.Text)

n = 1

Do While pv<fv

pv = pv * (1 + rate)

List1.AddItem "第" + Str(n) + "年" + " " + Str(pv) + "元"

Loop

End Sub

综合题普通

3. “字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

(1) 若要把窗体的标题名称由“Form1” 改为“字符洗牌”，应改变窗体的属性。

(2) 完成上述功能的程序代码如下，请在划线处填入合适的代码

Private Sub Command1_Click()

Dim r As Integer, k1 As Integer, k2 As Integer, r As Integer

Dim s As String, n As Integer

'从文本框TxtIn中获取字符串

Randomize

r = Int(Rnd() * 10) + 1 '随机生成洗牌次数

n = Len(s)

Do While r >= 1 '洗牌操作

k1 = Int(Rnd() * (n - 2)) + 2

k2 = Int(Rnd() * (n - k1 + 1)) + k1

s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)

r = r - 1

Loop

'输出结果

End Sub

(3) 若加框处的语句改为TxtOut.Text = Str(s)，则运行程序时会发生的错误消息为_________ A.

综合题困难

下列说法正确的是（）

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

单选题普通

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

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

单选题普通

3. 有一个数列，它的前二个数为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的上面

单选题普通

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. 某超市打折促销，规定如下：

①购物未超过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中应填入的条件是。

综合题困难

3. 在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

(1) 由图可知，窗体中的对象共有类；

(2) 实现上述功能的VB程序如下，请在画线处填入合适的代码。

Private Sub Command1_Click()

Dim i, k As Integer

Dim x1, y1, x2, y2 As Single

Dim v As Singie, maxd As Single

Dim s As String, pos zb As String

List1.Clear

s=Text1.Text

x1=1: y1=1

t="": k=1: j=1

List1.AddItem"坐标点" & "距离"

For i=1 To Len(s)

If Mid(s, i, 1)="," Then

v=Val(Mid(s,j,i-j))

j=

If k Mod 2=1 Then

x2=v

Else

y2=v

d=Sqr((x2-x1)^2+(y2-y1)^2)

If Then

maxd=d

pos="(" & Str(x2)& "," & Str(y2)& ")"

End If

List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)

End If

k=k+1

End If

Next i

Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)

End Sub

(3) 若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是。

综合题困难

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

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

填空题普通