有m个人结伴旅行（m≤9，每个人用整数1～m编号）。期间既有全员参与的集体活动，也有自主参与的小团队活动。每项活动的消费由参与人平均分摊，其中一人先行垫付并记录。记录内容包括该项活动的人均消费金额（整数，单位：元）、参与人。每项活动的参与人用字符串表示，垫付人排在第1位。如“25134”表示2、5、1、3、4号参与该项活动，其中2号是垫付人。旅行结束后依据所有活动的消费记录进行结算： 1）计算每个人的应还款（应还款=应分摊的总金额-先行垫付的总金额）； 2）根据所有人的应还款数据计算转账明细（应还款为正的人转给应还款为负的人）。根据上述要求编写VB程序，功能如下：运行程序，读取消费记录数据并在列表框List 1中显示。单击“结算”按钮Command 1，在列表框List 2中显示每个人的应还款，在列表框List 3中显示转账明细。程序运行界面如图所示。

0 返回首页

1. 有m个人结伴旅行（m≤9，每个人用整数1～m编号）。期间既有全员参与的集体活动，也有自主参与的小团队活动。每项活动的消费由参与人平均分摊，其中一人先行垫付并记录。记录内容包括该项活动的人均消费金额（整数，单位：元）、参与人。每项活动的参与人用字符串表示，垫付人排在第1位。如“25134”表示2、5、1、3、4号参与该项活动，其中2号是垫付人。旅行结束后依据所有活动的消费记录进行结算：

1）计算每个人的应还款（应还款=应分摊的总金额-先行垫付的总金额）；

2）根据所有人的应还款数据计算转账明细（应还款为正的人转给应还款为负的人）。

根据上述要求编写VB程序，功能如下：运行程序，读取消费记录数据并在列表框List 1中显示。单击“结算”按钮Command 1，在列表框List 2中显示每个人的应还款，在列表框List 3中显示转账明细。程序运行界面如图所示。

(1) 结合程序与界面可知，AddItem是List 2的（单选，填字母：A .方法名/B .事件名/C .属性名）。

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

Const n=9, m=15

Dim x(1 To n)As Integer ‘x(i)存储第i项消费记录的人均消费金额

Dim a(1 To n)As String ‘a(i)存储第i项消费记录的参与人

Private Sub Form_Load( )

‘读取所有消费记录，存入数组x和a中，并显示在列表框List 1中

‘代码略

End Sub

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, p As Integer

Dim c As Integer, w As Integer, v As Integer

Dim b(1 To m)As Integer ‘保存应还款数据

For i= 1 To m

b(i)=0

Next i

For i=1 To n ‘根据消费记录计算应还款

k=Len(a(i))

p=Val(Mid(a(i), 1, 1))

b(p)=b(p)-(k–1)*x(i)

For j=2 To k

p=Val(Mid(a(i), j, 1))

Next j

Next i

c=0

For i=1 To m

List 2. AddItem Str(i)+“号”＋Str(b(i))

If b(i)>0 Then c=c+1

Next i

i=1 : j=1 ‘根据应还款数据计算转账明细

Do While

Do While b(i)<=0

i=i+1

Loop

Do While b(j)>=0

j=j+1

Loop：

If w>0 Then Else v =b(i)

b(i)=b(i)-v：b(j)=b(j)+v

List 3. AddItem Str(i)+“号->”＋Str(j)+“号 ”+Str(v)

If w<=0 Then c=c–1

Loop

End Sub

(3) 程序中加框处代码有错，请改正。

【考点】

类、对象、属性、方法、事件和事件处理的概念及应用; 分支结构语句及程序实现; 循环结构语句及程序实现;

【答案】

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

综合题困难

1. 小华开发了一个自动改卷系统，但是由于科目不同，没有固定的题号模板，于是小华又编写了python程序，能根据试卷答案自动输出题号。如图1为答案模板文件，小华在模板文件中录入答案后保存为"卷3.txt"，如图2所示，每一行是一题或者一题中的一小题的答案，题号之间没有跳跃。例如：图2中【1】和【5】之间有4行，A、B、C、D为第1到4题的答案。程序运行结果如图3所示。

图 1

图 2

图 3

(1) 实现上述功能的 Python 程序如下，若删除图2最后一行(【7】所在的行)，对程序运行结果影响(填：有/没有)。

(2) 请在划线处填入合适的代码。

f=open("卷 3.txt",encoding="utf-8")

line=f.readline().strip() c=0 #strip()用于删除字符串尾部的"\n"换行符

preId=0

QuestionInfo=[ ]

while line:

if line[0] == "【":

curId =

if curId - preId > 1:

for i in range(preId, curId):

QuestionInfo.append(str(i))

elif c>0:

for i in range(1, c + 1):

QuestionInfo.append(str(preId) + "(" + str(i) + ")")

c = 0

else:

line=f.readline().strip() #strip()用于删除字符串尾部的"\n"换行符

f.close()

print("卷 3 题号划分为： ")

for Id in QuestionInfo:

print(Id)

综合题困难

2. 假期学校联合社区开展志愿者活动，共组织A、B、C三项活动。活动报名采用线上限时报名，三项活动共45个名额，报名系统根据报名时间取前45名学生并按照先后生成45个报名序号。由于活动场地和组织人员等因素限制，每项活动都有限定人数，因此可能会出现活动人数超额的情况。根据先报先得的原则，在每项活动报名满员后的时间段内报名的学生需要调剂重报，系统会自动推送需重报名的学生报名序号。

编写VB程序，实现上述功能。运行程序，在列表框List1中显示45位报名学生的报名序号和所选活动名称。单击“统计”按钮Command1，在列表框List2中显示需要调剂重报活动的学生报名序号。程序运行界面如图所示。

(1) 语句″List1.Additem xm(i)″中的″Additem″是(单选，填字母：A .对象名B .方法名C .属性值) 。

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

Const n=45

Dim a(1 To n) As String, xh(1 To n) As String

Dim c(1 To 3) As Integer

Private Sub Form_Load()

'在数据库中读取前45位学生的报名序号和所选活动项目名称，分别存入数组xh和数组a，在List1中显示。读取三项活动的限报人数，存入数组c，代码略

End Sub

Private Sub Command1_Click()

Dim b(1 To 3) As Integer, i As Integer, j As Integer, k As Integer

Dim t1 As String, t2 As String

For i=1 To n-1

For j=n To i+1 Step-1

If Then

If a(j)=″A″ Then

b(1)=j-1

Else

b(2)=

End If

t1=a(j): a(j)=a(j-1): a(j-1)=t1

t2=xh(j): xh(j)=xh(j-1): xh(j-1)=t2

End If

Next j

Next i

b(3)=n

i=1: k=1

Do While i <=n

If c(k)=0 And i <=b(k) Then

Do While i <=b(k)

a(i)=″″

i=i+1

Loop

k=k+1

ElseIf Then

k=k+1

Else

i=i+1

End If

Loop

For i=1 To n

If a(i)=″″ Then List2.AddItem xh(i)

Next i

End Sub

(3) 程序中加框处代码有错，请改正。

综合题困难

3. 小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符(“+”表示插入，“-”表示删除)、操作位置和操作字符串(只包含英文字母)构成，例如，“+23abc”表示在字符串s第23位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如图所示。

小王编写的“模拟撤销”Python程序如下，输入撤销前字符串和历史记录，显示撤销过程代码如下所示。

实现上述功能的代码如下，请回答下列问题。

s=input("输入撤销前的字符串")

t=input("历史记录")

t=t[::-1]

c,num="",""

ss=s

for ch in t:

if "a"<=ch<="z"or"A"<=ch<="Z":

c=ch+c

elif "0"<=ch<="9"··

num=ch+num

else:

①

if ch=="-":

②

else:

s=s[:n-1]+s[n-1+len(c):]

ss=ss+"→"+s

c,num="",""

print("撤销过程:"+ ③ )

(1) 请在划线处填入合适的代码。

程序划线①处应填入的代码为;

程序划线②处应填入的代码为;

程序划线③处应填入的代码为。

(2) 运行该程序，输入的内容分别是"April"和"-3p+3ri-6e"，字符串s的值是。

综合题困难