查找最接近的数。编写一个查找最接近的数的VB程序:程序运行时，在文本框Text1中输入产生随机数的个数(1到100之间)，单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数。然后在文本框Text2中输入要查找的整数，单击命令按钮“查找”后，在标签Label3中显示随机整数序列中与待查找数最接近的整数(当最接近的数有2个时，输出较大的一个)。程序运行效果如图所示。实现上述功能的VB代码如下，请在横线处填入合适代码。 Dim n As Integer ‘存储随机数的个数 Dim f(1 To 100) As Boolean ‘f (i)为true时表示随机整数i已经产生过 Dim a(1 To 100) As Integer ‘依次存放升序排序后的n个随机数 Private Sub Command1_Click() ‘命令按钮“产生随机数并升序排列”的单击事件 Dim i As Integer Randomize For i=1 To 100 f(i)=False Next i n=Val(Text1. Text) For i=1 To n t=Int(Rnd * 100+1) Do While f(i)=True t=Int (Rnd * 100+1) Loop Next i j=0 For i=1 To 100 ‘实现排序并输出 If f(i)=True Then a(j)=i List1.AddItem Str(i) End If Next i End Sub Private Sub Command2_Click() ‘命令按钮“查找”的单击事件 Dim key As Integer key=Val(Text2. Text) If key <=a(1) Then Label3. Caption=Str(a(1)) : Exit Sub If key >=a(n) Then Label3. Caption=Str(a(n)) : Exit Sub L=1: R=n Do While L <=R ‘找到与key较为接近的两个数a(R)和a(L) m=(L+R) \2 If key <=a(m) Then R=m-1 Else L=m+1 End If Loop IfThen ‘在a(R)和a(L)中选出更接近key的数 Label3. Caption=Str(a(R)) Else Label3. Caption=Str(a(L)) End If End Sub

1. 跳蚤市场：为了筹集善款，学校组织了跳蚤市场活动。有n个学生打算卖出某种物品，其中第i个人希望以不低于a(i)的价格卖出：另有m个学生打算买入这种物品，其中第i个人希望以不高于b(i)的价格买入。如果物品的价格不低于卖方的最低价格且不高于买方的最高价格，则交易成功，否则交易失败。

另外为了公平，学校决定统一定价，使得最终价格能够让最多对学生成功进行交易。若有多个价格满足条件，则取满足条件的最高价。请你帮助校方完善VB程序，编程计算这批物品的最终定价。

例如，有6个学生打算卖出物品，他们的预期价格如图1所示。

卖方编号	1	2	3	4	5	6
预期价格	30	32	31	33	29	35

图1

另一有6个学生打算买入物品，他们的预期价格如图2所示。

买方编号	1	2	3	4	5	6
预期价格	34	31	29	32	33	31

图2

若分别以31元或32元的价格成交，都有3对学生交易成功，故最终定价为32元。

程序运行时，从外部数据库中输入买卖双方价格并显示到列表框List1和List2中，单击命令按钮Command1进行计算，并将最终的计算结果输出到标签Label3中，程序运行界面如图3所示。

(1) 若图2中的买家1退出了交易，不再卖出物品，则最终定价为元。

(2) VB代码实现如下，请在划线处填入合适的代码。

Dim n As Integer， m As Integer

Dim a(1 To 20) As Integer， b(1 To 20) As Integer

Private Sub Form_ Load()

'读取卖家人数n以及最低卖出价格，存入数组元素a(1)到a(n)中；

'读取买家人数m以及最高买入价格，存入数组元素b(1)到b(m)中；

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer， L As Integer， R As Integer

Dim ml As Integer， m2 As Integer， sI As Integer， s2 As Integer

Dim price1 As Integer， price2 As Integer

Dim tot1 As Integer， tot2 As Integer

Dim mini As Integer， maxi As Integer

mini = a(1)： maxi = ' mini 和maxi分别为可交易的最低价和最高价

For i=2 To n

If mini > a(i) Then mini = a(i)

Next i

For i=2 To m

If maxi < b(i) Then maxi = b(i)

Next i

L=mini：R=maxi

Do While L<R

s1 =0：s2= 0

m1=(L+R+1)\2

For i=1 To n

If a(i)<=m1 Then s1=s1+1

Next i

For i=1 To m

If b(i)>=m1 Then s2=s2+1

Next i

If s1>s2 Then Else L=m1

Loop

price1=L： tot1 = s1 'price1和tot1分别为价格和交易人数

L=mini：R=maxi

Do While L<R

s1 =0：s2=0

m2=(L+R)\2

For i =1 To n

If a(i) <= m2 Then s1=s1 + 1

Next i

For i=1 To m

If b(i) >= m2 Then s2=s2+1

Next i

If s1<s2 Then L=m2+1 Else R=m2

Loop

price2 = L： tot2 = s2 ' price2和tot2分别为价格和交易人数

If Then

Label3.Caption ="最终定价为" + Str(price1) + "元"

End If

End Sub

综合题困难

2. 【加试题】小明设计了一个查找数据的程序：在一组升序的数列当中，查找不小于k的最小数的位置，如果该值存在，则返回其第一次出现的位置，如果不存在则返回0。

程序界面如图所示：

(1) 若在Text1中输入“8”，Text2，Text3输出的分别为。

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

Dim a(1 To 10)As Integer

Function find(L As Integer，R As Integer，key As Integer)As Integer

If L>R Then

find=0：Exit Functionhp

ElseIf a(L)>=key Then

find=L：Exit Function

Else

①

If a(M)<key Thenhp

find=find(M+1，R，key)

ElseIf ② Then

find=find(L，M-1，key)

Else

find=M

End If

End Function

Private Sub Command1 Click()

Dim k As Integer

Dim P As Integer

k=Val(Text1．Text)

③

Text2．Text=a(P)

Text3．Text=Str(P)

If p=0 Then

Text2．Text=“无”

End If

End Sub

Private Sub Form Load()

a(1)=3：a(2)=3：a(3)=3：a(4)=4：a(5)=7：a(6)=7

a(7)=10：a(8)=13：a(9)=19：a(10)=21

For i=1 To 10

List1．AddItem Str(a(i))

Next i

End Sub

① ② ③

综合题困难

3. 小明在玩一个数字游戏，给定一个n位正整数(n<=20)，根据设定的保留位数，删除k个数字，剩下的数字按原次序组成一个最大的新数。例如原数36351328，删除5个数，最大数为658。算法如下:先确定最高位的数字，在第1位至最后2位数字前的363513中找到最大的数6，从而确定最高位是6，再确定次高位的数字，从6后面的数开始到最后1位数字前的35132中找到最大数5，确定次高位是5，依次找下去得到最大新数。他设计了一个VB程序来进行验证，在文本框Text1中输入一个n位正整数，在文本框Text2中输入删除位数k，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

(1) 如果输入的原数是3638132，删除3位数字，则输出的新数是。

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

Private Sub Command1_Click()

Dim a(1 To 20) As String

Dim ys As String, xs As String ‘s记录最大的新数

Dim k As Integer, h As Integer, n As Integer

Dim i As Integer, j As Integer

Dim F As Boolean

xs =“”

ys = Text1.Text

n = Len(ys)

k = Val( Text2.Text)

F = True

If ys =“”Or n > 20 Or k = 0 Or k > n Then

Label4.Caption = “输入的原数或保留位数不符,请重输!”

F = False

End If

For i = 1 To n

If a(i) < “0” Or a(i) > “9” Then

Label4.Caption =“输入的原数不是数字,请重输!”

Text1.Text = “”

F = False

End If

Next i

If F = True Then

h = 1

For i = 1 To n-k

For j = h To

If a(j) > a(h) Then h = j

Next j

h = h + 1

Next i

Text3.Text = xs

End If

End Sub

综合题困难

1. 有如下 Python 程序段：

import random

a = [1,3,4,6,6,6,9,9,11,12]

key = random.randint(2,5) * 2

i,j = 0,9

while i <= j :

m = (i + j) // 2

if key < a[m]:

j = m - 1

else:

i = m + 1

print(j)

执行该程序段后，输出的结果不可能是（）

A ．2 B ．3 C ． 5 D ． 7

单选题普通

2. 有如下Python程序段：

a=['1','14','5141','91','9810']

key=input()

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

while i<=j:

m=(i+j)//2

if a[m]==key:

break

elif a[m]<key:

i=m+1

else:

j=m-1

b=''

for i in range(len(a[m])):

b+=chr(ord(a[m][i])-49+97)

print(b)

已知ord（‘a’）的值为97，ord（‘1’）的值为49，若输入的key值为“1919810”，则程序运行后输出为（）

A. aadead B. 114514 C. 1919810 D. ad

单选题普通

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

a=[12,14,15,15,17,18,20,20,23,25]

n=0

i=0

j=len(a)-1

k=int(input("请输入要查找的数"))

while i<=j:

m=(i+j)//2

n=n+1

if a[m]>k:

j=m-1

else:

i=m+1

print(i,j,m,n)

当输入的k值为20，程序运行结束后，下列描述不正确的是（）

A. m的值是7 B. i的值是8 C. j的值是m-1 D. n的值是3

单选题普通

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

单选题普通