数组a 中存储的是左右交替上升的n个正整数，如下表所示： a(1) a(2) a(3) …… a(n-2) a(n-1) a(n) 3 25 38 …… 55 31 12 依据对分查找思想，设计一个在数组a中查找数据key 的程序，实现该功能的VB程序如下，但加框处代码有错，请改正。 Private Sub Command1_Click() Const n = 6 Dim a(1 To n) As Integer, flag As Boolean Dim i As Integer, j As Integer, m As Integer, key As Integer ‘读取一组正整数，按上述规则存入数组a中，代码略 key = Val(Text1.Text) i = 1 j = (n + 1) \ 2 flag = False Do While And Not flag ‘⑴ m = (i + j) \ 2 If key = a(m) Then flag = True ElseIf key < a(m) Then j = m - 1 Else i = m + 1 End If Loop If Not flag And j > 0 Then m = ‘⑵ If key = a(m) Then flag = True End If If flag Then Text2.Text = Str(m) Else Text2.Text = "找不到" End If End Sub ⑴⑵

1. 编写“数对查询”程序，实现如下功能：生成11个随机整数存入数组，并在标签Label1中显示。在文本框Text1中输入一个正整数，单击“搜索”按钮Command1，在数组中查找和为该正整数的两个数，并在列表框List1中输出查询结果。程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=11

Dimd（1 To n）As Iteger

Private Sub Form_ Load( )

'生成n个随机整数存入数组d，并在Label1中显示，代码略

End Sub

Private Sub Command1_Click( )

Dim sum As Integer， L As Integer， R As Integer， c As Integer

①

c=0

For L=1 To n-1

R=n

Do While L< R

If ② Then

List1.Addtcem Str（d（L））& " " & Str（d（R））

c=c+1

Exit Do 'Exit Do表示退出循环

Else

End If

Loop

Next L

List.Addtem "找到和为" "& Str（sum）& "的数对共" & Str（c）&"组"

End Sub

请回答下列问题：

(1) 在设计程序界面时，要修改文本框Textl中文字的字体大小，可修改文本框的属性（单选，填字母： A .Text/B .Width/C .Font ）。

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

① ②

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

(4) 根据程序，若文本框Text1中输入内容为28，则能找到满足条件的数对组数为。

综合题普通

2. 在文本框 TxtIn中输入原文，单击“加密”按钮，对文中所有英文字母进行加密，其它字符不变，在文本框 TxtOut中输出加密结果。

加密规则如下表所示：

原字

A

B

C

…

X

Y

Z

a

b

c

…

x

y

z

密字

z

y

x

…

c

b

a

Z

Y

X

…

C

B

A

注：“A”的ASCⅡ码值是65，“a”的ASCI码值是97。

(1) 若输入的内容是“ Beauty!”(不包括双引号)，则输出为。

程序运行界面如图所示

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

Private sub Cmd1- Click()

Dim i As Integer， s As String， c As String， ans As String

①

For i=1 To Len(s)

c= Mid(s， i， 1)

If c<="z “And c >=”a"Or c＜=”Z” And c >=”A” Then

c=②

End If

③

Next i

TxtOut. Text =ans

End Sub

(3) 根据上述程序，“加密”按钮名称是。

综合题普通

3. 编写VB程序，其功能为：删除文章中圆括号及圆括号中的内容，输出删除后的结果。

注：文中圆括号成对出现，圆括号内不会再套圆括号。

程序运行界面如图所示。

(1) 要使程序运行时，窗体Form1标题显示“删除圆括号及其内容”可在（单选，填字母：A .Form_Load()/B .Form_Load()/C .Form_UnLoad()/ D .Form_Click()）事件处理过程中添加语句Form.Caption"删除圆括号及其内容"。

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

Private Sub Command1_Click()

Dim s As String, rs As String, c As String, i As Integer, flag As Boolean

s= Text1. Text: rs =“”: flag False

For i=1 To Len (s)

c=Mid(s, i, 1)

IfThen

rs=rs +c

ElseIf c=“（”Them

ElseIf c=“）”Then

flag =False

End If

Next i

Text2 Text=rs

End Sub

综合题普通

1. 某 Python 程序如下：

p=")!@#$%^&*("

c="cra2edu"

t=""

for i in range(len(c)//2+1):

if i%2==0:

t+=c[len(c)-i-1]

elif c[i]>="0" and c[i]<="9":

t+=p[int(c[i])]

else:

t+=c[i]

print(t)

程序运行后，输出的结果是（）

A. ure@ B. ure@a C. ude@ D. cda!

单选题普通

2. 有如下 Python 程序段：

d= [1,3,8,15,22,26,28,40,46,61,80]

i=0;j=len(d)-1

while i<=j:

m= (i+j)//2

if key<d[m] :

j=m-1

else:

若 key 值为 22，程序运行结束后，加框处语句执行的次数为（）

A. 1 B. 2 C. 3 D. 4

单选题普通

3. 某二分查找算法的程序段如下：

a = [11,13,14,25,26,28,39,48]

key=int(input("key="))

n=len(a)

i=0;j=n-1

flag=False

while i<=j and not flag:

m=(i+j+1)//2

if a[m]==key:

flag=True

if a[m]>key:

j=m-1

else:

i=m+1

若key输入的值是 39, 则运行程序段后，以下变量的值不正确的是 ( )

A. flag = True B. i = 6 C. j = 7 D. m = 6

单选题困难

1. 张三是一名计算机专业的大学生，为了帮助同学们学习专业相关的英语词汇，编写一个简易字典程序。该程序中存放词汇数据库，在学习中输入英文单词，可以获得中文翻译结果。程序中的词汇数据库采用链表方式存储，首字母相同时按升序排序。查找单词时，首先根据首字母找到同首字母最小单词所在链表，再按照链表顺序查找该单词。

(1) 根据题意，部分的单词库数据逻辑结构如图所示，查找单词“byte” 的过程是 “binary ”→ “bit ”→“byte”，补充图中空白单元格的值为。

(2) wordlist(data,info)函数实现将词汇数据库 data 以链表的方式按字母序升序排列。info 表示词汇数据库中各字母开头的最小单词位置，如 info[0]表示字母 a 开头的最小单词在词汇数据库 data 中的位置。实现该功能的程序如下，请在划线处填入合适的代码。

def wordlist(data,info) :

n = len (data)

for i in range(n):

data[i].append(-1) #data[i]追加一个元素-1

for i in range(n):

d = data[i][0]

if info[k] == -1:

info[k] = i

else:

head = info[k]

q = head

while :

p = q

q = data[q][2]

if q != head:

data[p][2] = i

data[i][2] = q

else:

data[i][2] = head

return data,info

(3) searchword(data,info,key)函数实现单词的查找。程序如下，请在划线处填入合适的代码。

def searchword(data,info,key) :

k = ord(key [0]) - ord("a")

head = info[k]

p = head

while p != -1:

if data[p][0] == key:

return

p = data[p][2]

return "没有找到该单词"

读取词汇数据库，存入列表 data 中，列表的每个元素包含 2 个数据项，分别为英文单词和中文翻译，如 data = [[‘audio ’,‘音频 ’], [‘binary ’,‘二进制数 ’] …]，数据读取存入的代码略。

'''

info = [-1] * 26

data,info = wordlist(data,info)

key = input("请输入查找单词：").lower () #转化为小写字母

res = searchword(data,info,key)

print(key, "查找结果是：", res)

综合题困难

2. 贪吃蛇在𝑛×𝑛(1≤𝑛≤10)的方阵中游走，它可以往上下左右四个方向游走，当穿越方阵的边界时还可以从该边界的对立面继续进入方阵。初始时你可以任意安排贪吃蛇的起点位置，并且选择一个方向一直走𝑛步。方阵中“.”表示空位置，数字表示可以吃的食物，每吃到一个数字时，这个数字便会附着到贪吃蛇的尾部，同时方阵中该数字会消失。问：在某个时刻，贪吃蛇身上会不会出现我们想要的某个整数；若有，会有多少个数会小于该整数。

例如，在右侧5×5的方阵中可以产生[1,3,4,12,21,234,243,324,342,423,432]共11个数。其中数“234”的产生过程可以是：选择第4行第2列为起点，第一步吃掉2，接着往右走三步吃掉3，再往右走一步穿越到对面的4，吃掉它成为“234”，共五步。其中“1234”或“123”等整数是不可能出现的。

请回答以下问题。

(1) 输入方阵保存至数组𝑎，然后将贪吃蛇所有可能吃到的所有数字组合保存到数组𝑏中，请补充完该算法程序。

dx = [0, 1, 0, -1] # 模拟贪吃蛇往四个方向游走时行号变化的数组

dy = [1, 0, -1, 0] # 列号变化数组

n = int(input()) # 方阵的大小

a, b = [], []

for i in range(n):

s = input().strip().split() #方阵中的一行数据，“.”号和数字字符都以空格分隔

a.append(s)

def calc(i, j, p):

x, y, res = i, j, 0

if '0' <= a[x][y] <= '9':

res = int(a[x][y])

for i in range(n-1):

x = # 产生新的行号

y = # 产生新的列号（与行号类似），代码略

if '0' <= a[x][y] <= '9':

res = res * 10 + int(a[x][y])

return res

for i in range(n):

for j in range(n):

for k in range(4):

num =

if num > 0:

b.append(num)

print(b) # 输出所有可能能产生的整数（可能会产生重复的整数）

(2) 若数组 a= [['.', '1', '.'], ['.', '2', '3'], ['.', '.', '.']]，上述程序处理完后𝑏数组中（选填：存在 / 不存在）整数2。

(3) 对𝑏数组中的所有整数进行升序排序，输入待查找的数据，输出小于等于该数字的数有多少个。请补充完该算法程序。

b = [1, 12, 23, 23, 23, 35, 35,146]

输入输出示例：

请输入待查找的整数：23

小于等于23的数共有5个

请输入待查找的整数：31

小于等于31的数共有5个

bn = len(b)

for i in range(bn-1):

for j in range( ):

if b[j] > b[j+1]:

b[j], b[j+1] = b[j+1], b[j]

key = int(input("请输入待查找的整数："))

i, j = 0, bn-1

while i <= j:

m = (i + j) // 2

if :

i = m + 1

else:

j = m - 1

print("小于等于", key, "的数共有", i, "个")

综合题困难

3. 并列一排的n个房间(房间间距均为1个单位)，依次编号为1~m，其中k个房间需要配送服务，现有处于不同房间的m台机器人可提供配送服务。配送系统为管理方便，对所有机器人设置相同的配送半径r (机器人以所在房间为起点，可配送左右各r个连续房间)。可以设置最小配送半径来满足k个房间的配送要求。

例如，根据系统依次采集到的数据，当前需要配送的5个房间编号分别为1，8，3，4，7，可提供配送服务的机器人1、机器人2分别处在房间2、房间7，如下图所示。各房间可选择最近的机器人提供配送服务，例如房间4离机器人1的距离为2，离机器人2的距离为3，因此可以选择机器人1的配送服务。确定各房间所选择的机器人后，计算各房间与所选择的机器人的距离，取其最大值即为最小配送半径。因此，要满足这5个房间的配送要求，对2台机器人可以设置的最小配送半径为2。

房间编号	1	2	3	4	5	6	7	8
需配送的房间	√		√	√			√	√
机器人		机器人1					机器人2

(1) 若需配送服务的房间编号分别为1，3，2，4，5，6，可提供配送服务的2台机器人所处房间编号为4，1，则最小配送半径应设置为；

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

def sort_ arr(a)： #对数组进行升序排序

m = len(a)

i=1

whilei<= m- 1 and flag == True：

flag = False

for j in

if a[j] <a[j-1]：

a[j], a[j-1|=a[j-1], a[j]

flag = Truc

i+=1

return a

def bisearch(v, b)：．

i，k = 0, len(b)

j=k- 1

while i<=j：

mid=(i+j)//2

if

i=mid+1

else：

j= mid- 1

retur i

def max_ min(houses, b)：

minr= 0

for h in houses：

R = bisearch(h, b)

if R == len(b)：

r=h-b[R- 1]

elif R== 0：

r= b[R]- h

else：

minr = max(r, minr)

return minr

if_ name_ == '_ main_ '： #主程序

#将需配送的房间编号存入整型数组houses

#将机器人所在房间编号存入整型数组b，代码略

#例如： houses= |8, 3, 4, 7, 1], b= |7, 3|

b= sort_ arr(b)

print(max_ min (houses, b))#输出最小配送半径

综合题困难

1. 用二分查找的方法求不等式 2x+3x-4<=n(n>=0)的最大正整数解，编写的程序如下：

n=int(input("请输入 n："))

L,R=1,n+1

while L<R:

x=(L+R+1)//2

if 2**x+3*x-4<=n:

①

else:

②

print(f"方程 2^x+3*x-4<={n}的最大正整数解为：",R)

要使程序实现上述功能，则缺失的代码是（）

A. ①L=x+1 ②R=x-1 B. ①L=x②R=x-1 C. ①R=x-1 ②L=x+1

单选题普通

2. 某对分查找算法的VB程序段如下：

key = Val(Text1．Text)

s="" ：i=1；j= 10

Do While i<=j

m=(i+j)\2

If a(m)= key Then Exit Do 'Exit Do表示退出循环

If key < a(m) Then

j=m-1：s=s+"L"

Else

i=m+1 ：s=s+ "R"

End If

Loop

按非降序排序的整型数组a(1)到a( 10)的值依次为“11，23，31，39，44，52，60，x，69，89”。在文本框Text1中输入66，执行该程序段后s值为“RRL”，则x的可能值的个数为( )

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

单选题普通

3. 某对分查找算法的VB程序段如下：

i=1：j=30

m=（i+j）\2

Do While i < = j And key < > a（m）

If key >a（m） Then i = m+1 Else j = m-1

m=（i+j）\2 ①

Loop

数组元素a（1）到a（30）各不相同且按升序排列，若查找键key与a（9）相等，执行该程序段，①处语句的执行次数是（）

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

单选题普通