文本加密：利用Mid和Asc函数获取文本和密码字符串每一位字符的ASCII码，然后将文本中某一位字符串的ASCII码与相应的密码字符串中某一位的ASCII码就行异或运算。最后利用Chr函数将运算出的ASCII转换为字符。运行程序，在文本框中输入要加密的字符串和密码，并点击“加密”按钮，在文本框中显示加密或解密后的字符串，显示结果如下图所示。程序代码如下： Dim x As String Dim y As String Dim c(1 To 100) As String Private Sub Command1_Click() Dim z As String x = Text1.Text y = Text3.Text z = f(x,y) Text2.Text = z End Sub Function f(x As String, y As String) As String Dim i, w, achar As Integer Dim mm As String w = Asc(y) For i = 1 To Len(x) achar = Asc(Mid(x, i, 1)) c(i) = Chr(x Xor y) ‘ Next i For t = 1 To Len(x) mm = mm+achar ‘ Next t f = mm End Function 程序代码有2处错误，请在画线处写上正确代码。

1. 有n个小组（编号1至n），每个小组有m个成员，每个成员都有一个大于等于0的得分。现要求按下列规则计算每个小组的成绩，并找出成绩最高的小组。

小组成绩的计算规则是：若小组成员中得分最高的前k人得分都不低于k，且其他成员得分都不超过k，则该小组成绩为k。例如，第1小组共有8个成员，得分依次为“5，2，7，11，8，6，5，1”，由此可知最高的前5人得分为“11，8，7，6，5”，其他3人得分为“5，2，1”，因此该小组成绩为5。

按上述要求，编写VB程序，功能如下：在列表框List1中显示各小组每个成员的得分，单击“计算”按钮Command1，在列表框List2中显示成绩最高的小组编号及成绩（如果有多个小组并列最高，则全部显示）。

(1) 若第2小组各成员得分依次为“0，4，12，1，5，9，3，9”，则该小组的成绩是。

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

Const n = 6

Const m = 8

Dim a（n * m）As Integer

Dim c（m）As Integer，ans（n）As Integer

Private Sub Form_Load( )

‘读取n个小组每个成员的得分，按组别从小到大依次存入数组a，并显示在List1中

‘n（1）到a（m）存储第1小组m个成员的得分

‘a（m+1）到a（2*m）存储第2小组m个成员的得分

‘以此类推，代码略

End Sub

Private Sub Cummand1_Click( )

Dim i As Integer，p As Integer，g As Integer，maxg As Integer

maxg = -1

For i = 1 To n

g = GroupScore（i）

If g > maxg Then

maxg = g: p=1

ElseIf g = maxg Then

p=p+1

ans（p）=i

End If

Next i

For i = 1 To p

List2. AddItcm“第”+Str（ans（i））+“组，成绩：”+Str（maxg）

Next i

End Sulb

‘函数返回第w小组的成绩

Function GroupScone（w As Integer）As Integer

Dim i As Integer，k As Inteser

For i = 0 To m

c（i）=0

Next i

For i=（w-1）*m+1 To w *m

k=a（i）

If k > m Then

c（k）=c（k）+1

Next i

k=m

Do White c（k）< k And k>0

k=k-1

Loop

GroupScore=k

End Function

综合题困难

2. IPv6是英文“Internet Protocol Version6”(互联网协议第6版)的缩写。IPv6的地址长度为128位，采用十六进制表示。为了便于人工阅读和输入，IPv6 地址可划分成8个块，每块4位，块与块之间用“：” 隔开，如： ABCD：F010000：000：ABCD：EF01 ：000：6789。同时，对于多个地址块为0的情况时，可以使用“: :”号，进行化简。化简原则如~ F：

①全0块“0000”，可以化简为“0”

②连续多个全0块，可以化简为“: :”

③一个IPv6地址中只能出现一个“: :”，出现多个全0块时，“: :” 要化简最长的一段，没有最长的就将最左侧的一段化简为“: :”

④“: :”可以出现在地址开头或结尾

如：数据“FBCD：EF01：6789”在化简前为“FBCD：EF01：0000：0000：0000：0000：0000：6789”。

小李根据上述化简算法设计了一个IP化简地址还原的VB程序，功能如下：在文本框Text1中输入已经化简的IP地址，单击“还原”按钮Command1，在文本框Text2中输出其化简前的IP地址。运行界面如图所示。

(1) 运行程序，若在文本框Text1中输入“12：：” (引号内数据)，还原后，数组元素ip(1)的值为。

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

Function ipv6(s As String) As String

Dim i As Integer

For i= Len(s) + 1 To4

s= "0"+s

Next i

End Function

Private Sub Command1_Click( )

Dim ip(1 To 8) As String

Dim st As String

Dim f As Integer, k As Integer

Dim s As String, n As Integer

f= 0

s = Text1.Text

n= Len(s)

For i= 1 To n

c1 = Mid(s, i, 1)

If c1 <> "．" Then

ip(k)= ip(k) +c1

End If

If c1= "：" Or i= n Then

If c2 ="：" Then

f= k

Else

ip(k) = ipv6(ip(k))

k=k+ 1

End If

Next i

k=k- 1

x=8-k

For i=k To f+ 1 Step-1

Next i

For i=f+ 1 To f+x

ip(i) = "0000"

Next i

Text2.Text= ip(1)

For i=2 To 8

Text2.Text = Text2.Text + "：" + ip(i)

Next i

End Sub

综合题困难

3. 【加试题】小李编写VB程序，实现从某一字符串删除指定的连续字符串，并将处理后的字符串重新输出，程序界面如图所示，在文本框Text1中输人原始字符串，在文本框Text2中输入需要删除的连续字符串，单击Command1后，存寸本榧Text3中输出府h弹后的结果。

实现上述功能的VB程序如下．但加框处代码有错，请改正。

Dim P As String，k As String，x As Integer

Function f(a As Integer)As Boolean

f=false

If Mid(p，a，Len(k))=k Then f=True

End Function

Private Sub Command1_Click()

Dim x As Integer，result As Strin9，flag As Boolean

result=""

p=Text1．Text

k=Text2．Text

For x=1 To Len(P)-Len(k)+1

If Not f(x) Then

result=result+Mid(p，x，1)

Else

‘（1）

End If

Next x

Text3．Text=result+ ‘（2）

End Sub

(1) 处加框代码应改为；

(2) 处加框代码应改为。

综合题困难

1. 函数就是把具有独立功能的代码块组织成为一个小模块，在需要的时候调用，Python定义一个函数采用的关键词是( )。

A. import B. def C. from D. main

单选题容易

2. 在Python中，用户自定义函数一般包括函数名、参数、函数体和返回值等四个部分，其中哪两部分是必不可少的（）。

A. 函数名和函数体 B. 参数和返回值 C. 函数名和参数 D. 函数体和返回值

单选题容易

3. 程序运行时分别在文本框Text1与Text2中输入12与20，点击按钮Command1后，文本框Text3中显示的内容是（）

Private Sub Command1_Click()

Dim i As Integer, j As Integer

i = Val (Text1. Text)

j = Val (Text2.Text)

Text3. Text = Str(i * j / f(i，j))

End Sub

Function f(a As Integer, b As Integer) As Integer

Dim k As Integer

k=a Mod b

If k=0 Then

f=b

Else

f=f(b，k)

End If

End Function

A. 4 B. 12 C. 20 D. 60

单选题普通

1. 在计算机的操作系统中，经常需要给应用程序“分配内存”和“释放内存”。若有大小为1024B的内存，如1图所示：

使用列表["+",5]表示申请连续5B的内存，使用列表[2,2]表示回收位置2开始连续2B的内存。若指令集表示为：order=[["+",5],[2,2],["+",8],[8,3]]。随着指令集被执行，1024B连续的内存块会被分割成若干个占用内存和空闲内存。为方便起见，“占用内存”用1表示，“空闲内存”用0表示，故执行上述指令集后，内存占用情况如2图所示：

若将空闲块用链表组织起来，就可以快速查找空闲块和删除空闲块。把连续的空闲块定义为一个节点，每个节点由[空闲块起点, 空闲块长度, 下一个空闲块位置]三部分内容构成。根据2图内存占用情况，创建的空闲块链表如3图所示：

(1) 根据2图所示的内存占用情况，执行指令[4,4]后（连续空闲块要合并），内存中“空闲块”的数量变为个。

(2) 根据内存占用情况列表allot，创建空闲块链表代码如下：

def linkList(allot): #linkList函数功能：根据内存占用0/1列表allot，创建空闲块链表link

link = [ [-1,-1,-1] ] #链表包含一个空头节点

head = tail = 0 ; n = len( allot ) ; i = 0

while i < n :

if allot[ i ] == 0 :

j = i + 1

while j<n and allot[ j ] == 0:

j = j + 1

link.append( [ i , j – i , -1 ] )

link[ tail ][ 2 ] = ▲

tail = len( link ) - 1

else:

i += 1

return head , link

请在▲处填入合适的代码。

若将加框处的代码修改为i = j，是否影响程序的执行结果(选填：是/否)。

(3) 模拟上述内存操作的Python程序如下，请在划线处填入合适的代码。

#通过文件读入内存分配表allot和指令集order，其代码略。

head , link = linkList ( allot )

for i in range( len( order ) ):

if order[ i ][ 0 ] == " + ": #必须分配连续的空闲块，且由第一个满足空间大小的节点分配

p = head ; q = link[ head ][ 2 ]

while :

p = q ; q = link[ q ][ 2 ]

if q == -1:

print( "内存不足！" )

else:

if link[q][1] == order[i][1]:

else:

link[ q ][ 0 ] = link[ q ][ 0 ] + order[ i ][ 1 ]

link[ q ][ 1 ] = link[ q ][ 1 ] - order[ i ][ 1 ]

else:

p = head ; q = link[ head ][ 2 ]

while q != -1 and link[ q ][ 0 ]<order[ i ][ 0 ]:

p = q ; q = link[ q ][ 2 ]

if link[ p ][ 0 ] + link[ p ][ 1 ] == order[ i ][ 0 ]: #前面节点合并

link[ p ][ 1 ] = link[ p ][ 1 ] + order[ i ][ 1 ]

else:

link.append([ order[ i ][ 0 ] , order[ i ][ 1 ] , q]) #添加节点

link[ p ][ 2 ] = len( link ) - 1

p = link[ p ][ 2 ]

if q != -1 and : #后面节点合并

link[ p ][ 1 ] = link[ p ][ 1 ] + link[ q ][ 1 ]

link[ p ][ 2 ] = link[ q ][ 2 ]

综合题困难

2. 某网约旅游小巴士，核载乘客m人（不算司机），途径n个景点（编号从1到n），小巴士从1号景点向n号景点行驶，中途不改变方向。游客提供订单号，由3个数字组成分别是：乘客人数、上车景点编号、下车景点编号。如订单“2,1,5,”（数字之间用逗号“,”分隔，并以逗号结尾）表示2位乘客从1号景点上车5号景点下车。编写python程序，读取已经预约成功的订单信息，并判断新提交的订单能否预约成功。

设m=12，n=10，如图a所示，是已经预约成功的5个订单对应的各景点车上人数。当输入新的订单号：“4,5,8,”，程序提示预约不成功，如图b所示。


图a	图b

(1) 结合题意与图a，若输入订单号为“3,6,9,”，（选填：能/不能）预约成功。

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

#定义函数，读取订单中的人数和上下车景点编号

def order(s):

num,start,end=0,0,0

j,k=0,1

for i in range(len(s)):

if ch==",":

tmp=int(s[j:i])

j=i+1

if k==1:

num=tmp

elif k==2:

start=tmp

elif k==3:

end=tmp

return num,start,end

#主程序

#读取已预约成功订单，存入列表 lst，数据元素为订单号

# 如 lst=["2,1,5,","1,3,7,","3,2,8,","2,4,7,","3,5,10,"]

n=10 #站点数

m=12 #巴士空座位总数

count=[0]*(n+1)

for i in lst: #处理预约成功订单

num,start,end=order(i)

for i in range():

count[i]+=num

s=input("请输入订单号：")#处理新订单

a,b,c=order(s)

if a*b*c!=0:

if :

print("预约不成功，请重新输入！")

else:

print("预约成功！")

else:

print("订单格式输入错误，请重新输入！")

#更新预约成功订单，再次等待新订单，代码略

综合题困难

3. 某学生编写了一个程序来模拟答题卡中单项选择题的判分过程。实现方法是：使用“0”和“1”的组合来分别编码ABCD的填涂情况，具体方式如图a所示，例如，填涂结果“A”用“1000”编码。12道选择题以图b的方式进行排列。

图 a

图 b

图 c

编写程序：对给定的标准答案，生成并输出每道题的填涂信息，对应的选项、分值（答对得2分，答错或不答得0分），以及最后的总得分，输出结果如图c所示。请回答下列问题：

(1) 若生成的填涂信息如下图所示，输入的标准答案为“ABCDCADCABAD”，则获得的总分为（填数值）。

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

import random

n = 12 # 定义题数

da = "ABCDDABDAACA" # 存储标准答案

def check(s, w, da): # 判断得分

if :

return 2

else:

return 0

a=[[] for i in range(n)] # 存储每题 ABCD 选项的编码值

ans = [""] * n # 存储模拟生成的填涂选项

res = ""

s=""

total = 0

for i in range(n): # 模拟生成每题选项对应的 4 位编码

t = random.randint(0, 4) # 随机生成第 i+1 题的填涂情况

for j in range(4):

if :

a[i].append(1)

else:

a[i].append(0)

print("填涂卡情况：")

num=1

for i in range(n): # 打印填涂卡情况

s = s + str(a[num-1])

for j in range(4):

if a[num-1][j] == 1:

res = res + str(num) + "" + s + "

s = ""

if (i+1) % 3 == 0 :

print(res)

res = ""

num-=11

print("题号选项分值")

for i in range(n): # 输出每题的答案和得分

if ans[i] != " " :

df = check(ans[i], i, da)

print(f"{i+1} {ans[i]} {df}") #按格式要求输出

total += df

else:

df = 0

print(f"{i+1} 未填涂 {df}")

print(f"该学生选择题得分：{total}分")

综合题困难