有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。实现上述功能的VB代码如下，但加框处有错，请改正。 Const n=10 Dim a (1 To n) As Integer Private Sub Command1_Click() Dim t As Integer, i As Integer, j As Integer, m As Integer Dim tmp As Integer '读取一组正整数，存储在数组a中，并显示在列表框List1，代码略 i=1 Do While i<=n For j=n To i+1 Step-1 If a(j) Mod 2=1 Then If ① Then tmp =a(j):a(j)=a(j-1):a(j-1)=tmp t=t+1 End If End If Next j If ② Then m=m+1 i=i+1 Loop For i=1 to m List2.AddItem Str(a(i)) Next i List2.AddItem "一共交换了"& t & "次" End Sub ① ②

1. 双向选择排序算法。在经典的选择排序基础上，如果在选择出最小数的同时，也能选择预见最大数并将两数放置合适位置，这样就使排序效率提高一倍。依照上述双向选择排序的算法，小张编写了一个VB程序，功能如下：在列表框List中显示排序前数据，单击“排序”按钮Command1，在列表框List中显示这些数据按升序排序后的结果。运行效果如下图所示。

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

Const n＝10

Dim b(1 To n)As Integer

Private Sub command1_Click( )

Dim i As Integer

Dim t As Integer

For i＝1 To

For j＝i To

If b(j)<b(i) Then

t＝b(i)：b(i)＝b(j)：b(j)＝t

End If

If b(j)>b(n－i＋1) Then

t＝b(j)：b(j)＝b(n－i＋1)：b(n－i＋1)＝t

End If

Next j

Next i

For i＝1 To n

List2.AddItem Str(b(i))

Next i

End Sub

Private Sub Form_Load( )

For i＝1 To 10

b(i)＝1＋Int(Rnd*100)

List1.AddItem Str(b(i))

Next i

End Sub

综合题普通

2. 小明编写了一个图书录入系统的VB程序，功能如下：单击“读数据库”按钮Command1，从数据库中读取相应数据并显示在列表框List1中，在文本框Text1中实现数据录入这类图书的数量，单击“录入数据”按钮Command2实现数据录入，并按数量降序的方式显示在列表框List2中。程序运行界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

(1) 分析程序，可知数据库的文件名为。

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

Dim sType(1 To 200)As string '存放图书类别

Dim sNumber(1 To 200)As Integer '存放图书数量

Dim n As Integer

Private Sub Command1_Click( )

Dim conn As New ADODB Connection

Dim rs As New ADODB Recordset

conn. Connection String="Provider=Microsoft.AC

A.OLEDB.12.0;DATA Source="& App. Path &"\ALibrary. accdb"

conn. Open

Set rs. Active Connection=conn

rs. Open"Select*From Book"

'本过程从数据库中读取图书数据,存储在相应的变量中，并在List1中显示

'代码略

End Sub

Private Sub Command2_Chck()

Dim i As Integer, j As Integer, t As Integer, y As Integer

Dim x As String, s As String

Dim flag As Boolean

List2. Clear

x=Text1. Text

y=Val(Text2. Text)

flag=True

For i=1 To n

If sType(i)=x Then

flag=False

Exit for

End If

Next i

If flag Then

sType(n)=x

sNumber(n)=y

End If

For i=1 To n-1

For j=i+1 To n

If Then

t=sNumber (j):s Number(j)=sNumber(i):sNtmaber (i)=t

s=sType(j):sType(j)=sType(i):sType(i)=s

End If

Next j

Next i

List2. AddItem("类别数量")

For i=1 To n

List2. AddItem sType(i)&" "&Str(sNumber(i))

Next i

End sub

综合题困难

3. 【加试题】小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮Command1，在列表框List1中生成用于排序的n个数据，单击“排序”按钮Command2，对这组数据进行错位排序(即从前往后依次是最小的、最大的、第二小的、第二大的……依次类推)，在列表框List2中依次输出数据排序后的结果，程序运行界面如图所示。

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

Dim n As Integer，a(1 To 100)As Integer

Private Sub Command1_Click()

’该段程序用于随机产生n个整数，存储在数组a中，并显示在列表框list1中，代码略

End Sub

Private Sub Command2 Click()

Dim i As Integer，j As Integer，tmp As Integer

List2．Clear

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If Then ‘①

a(j)=a(j)+a(j-1)

a(j-1)=a(j)-a(j-1)

a(j)=a(j)-a(j-1)

End If

Next j

‘②

Next i

For i=1 To n

List2．AddItem Str(a(i))

Next i

End Sub

① ②

综合题困难

1. 数组 a 包含10个互不相同的元素，即a[0],a[1],…,a[9]，其中a[0],a[2],…,a[8]称为奇数位元素，a[1],a[3],…,a[9]称为偶数位元素。有如下Python程序段：

n=len(a)

for i in range(n//2-1):

for j in range(n-2,2*i,-2):

if a[j]<a[j-2]:

a[j],a[j-2]=a[j-2],a[j]

该程序段实现的功能是（）

A. 仅对奇数位元素升序排列 B. 仅对偶数位元素升序排列 C. 奇数位元素升序，偶数位元素降序排列 D. 奇数位元素降序，偶数位元素升序排列

单选题普通

2. 以下是实现正整数序列arr升序排列的程序代码段，则画线部分代码正确的是（）

arr=[7,4,2,13,6,5,3,6,17,1]

for i in range(1,len(arr)):

key=arr[i]

j=i

while :

arr[j]=arr[j-1]

j-=1

①j>0 and key<arr[j-1] ②j>=0 and key<arr[j-1] ③arr[j]=key ④arr[j-1]=key

A. ①③ B. ①④ C. ②③ D. ②④

单选题普通

3. 有如下VB程序段：

For i=1 To 3

k=i

For j=i+1 To 8

If a(j)<a(k) Then k=j

Next j

If k<> i Then

t=a(k)：a(k)=a(i)：a(i)=t

End If

Next i

数组元素a(1)到a(8)的值依次为“8，13，20，2，11 ，30， 25，17”，下列说法不正确的是（）

A. 执行该程序段后，数组元素a(1)到a(8)的值依次为2，8，11，13，20，30，25，17 B. 每执行一次外循环，数组a元素都会进行多次位置交换 C. 将代码“If k <> i”修改为“If k > i” ，不影响程序运行结果 D. 执行该程序段后，变量k的值为5

单选题普通

1. 某面馆2024年2月订餐数据保存在文件“ddsl.xlsx”中，部分数据如图a所示，编写Python程序，统计2月订餐最多的3种菜品，并使用图表呈现统计结果（并列前三的菜品均显示），如图b所示。

图a

import pandas as pd

df = pd.read_excel("ddsl.xlsx") #读文件中的数据

df= df.drop(["日期"，"订单号"，"单价"，"金额"]，axis=1) #删除列

dfg = df.groupby(" ① "，as_index= False).sum() #分组求和

dfs = ②

plt.bar(dfs["菜品"], dfs["份数"]) #绘制柱形图

#设置图表样式，显示图表代码略

(1) 统计2月订餐最多的3种菜品，由图b可知，该面馆有个菜并列第三。

图b

(2) 请在程序划①线处填入合适代码。

①

(3) 程序加框处应填入的正确代码为____(单选，填字母)。 A. dfs = df.sort_values("份数"，ascending= True) #升序排序 B. dfs = df.sort_values("份数"，ascending = False) C. dfs = dfg.sort_values("份数"，ascending = True) D. dfs = dfg.sort_values("份数"，ascending = False)

(4) 下列选项能实现划线②处功能的有____(多选，填字母)。 A. dfs[0:3] B. dfs.head() C. dfs[dfs.份数>=dfs["份数"][2]] D. dfs[dfs.份数>=dfs.at[2,"份数"]]

综合题普通

2. 某项活动有n个单位（编号1到n）参加，需将员工分成若干个小组，每个小组的人数上限为m，小组编号按新建次序从1开始编号。分组时，首先按单位编号次序依次在各单位内部分分组，每m人分配到一个新建小组中，不足m人的剩余员工暂不分配；然后按剩余员工人数由大到小的顺序，依次为各单位剩余员工分配小组。

若某单位剩余员工人数为k，则分配方法为：在已建的小组中查找空位数（该小组还可容纳的人数）大于或等于k的小组，如果找到的小组有多个，则选择空位数最少的小组，将此k人分配到该小组中；如果没有找到，则新建一个小组，将此k人分配到该小组中。

设n为5，m为20，各单位员工人数及单位内部的分组过程如图a所示，各单位剩余员工的分组过程如图b所示。

编写程序：给定各单位编号及员工人数，根据上述方法进行分组处理，按单位编号次序输出各单位所分配的分组编号。请回答下列问题：

(1) 由题意可知，若仅将图a中1号单位的员工人数修改为25，然后对图中5个单位重新分组，则1号单位所分配的分组编号为。

(2) 定义如下bubble_sort(lst)函数，参数lst的每个元素由单位编号和剩余员工人数2个数据项组成。函数的功能是根据每个单位的剩余员工人数，对lst进行降序排序。

def bubble_sort(lst):

n=len(lst)

for i in range(0, n-1):

return

调用该函数，若 lst 为[[1,0],[2,0],[3,18],[4,0],[5,19],[6,17]]，请回答①和②两个问题。

①虚线框中的程序段第 1 次执行后，关于 lst 中的剩余员工人数，下列说法正确的是（单选，填字母）。

A.lst[0][1]数值最小 B.lst[0][1]数值最大

C.lst[5][1]数值最小 D.lst[5][1]数值最大

②虚线框中的程序段执行的次数为。

(3) 实现分组功能的部分 Python 程序如下，程序中用到的列表函数与方法如图 c 所示，请在程序中划线处填入合适的代码。

函数与方法	功能
w.append(x)	在列表 w 末尾添加元素 x
x.w.pop()	将列表 w 末尾元素赋值给 x，并将其从 w 中删除

def group(data, m):

n=len(data)

a=[]

for i in range(n+1):

a.append([]) # a[i]初始化为空列表，存放编号为 i 的单位所分配的分组编号

gnum=0

for i in range(n): #各单位内部分组

while data[i][1]>=m:

gnum+=1

k=data[i][0]

a[k].append(gnum)

bubble_sort(data) #根据每个单位的剩余员工人数，对 data 进行降序排序

b=[]

for i in range(m):

b.append([])

i=0 #对剩余员工分组

while i<n and data[i][1]!=0:

while j<m and len(b[j])==0:

j+=1

if j<m:

v=b[j].pop()

else:

gnum+=1

v=gnum

a[data[i][0]].append(v)

i+=1

#输出各单位的分组编号，代码略

'''

读取小组人数上限存入 m；读取 1 至 n 号单位的数据，依次存入列表 data 的 data[0]至 data[n-1]中。

Data[i]包含 2 个数据项，data[i][0],data[i][1]分别存放单位编号及员工人数，代码略

'''

group(lst, m)

综合题困难

3. 有n个从小到大排列的整数依次存储在列表nums中，现要求将上述n个数的平方按从小到大的顺序依次存入列表ans中。如nums = [-4,-1,0,3,10]，则ans = [0,1,9,16,100]。

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

# 输入n个数从小到大依次存储到列表nums中，代码略

k = -1

for i in range(n):

if nums[i] < 0:

k = i

else:

break

ans = []

i, j = k, k + 1

while i >= 0 or j < n:

if i < 0:

ans.append()

j += 1

elif j==n:

ans.append(nums[i] * nums[i])

elif :

ans.append(nums[i] * nums[i])

i -= 1

else:

ans.append(nums[j] * nums[j])

j += 1

print(ans)

(2) 若输入nums的数据为[-4,1,4]，则输出ans的值为。

综合题困难

1. 某排序算法排序过程如图所示，由图可知，该算法的时间复杂度为（）

A. O(n) B. O(n²) C. O(log₂n) D. O(2ⁿ)

单选题普通

2. 某排序算法的VB程序段如下：

‘读取n个整数，依次存入a（1）到a（n）中，代码略

For i=1 To n - 1

For j=n To i+ 1 Step -l

If a(j)>a(j-1) Then t=a(j) : a(j)=a(j-1) : a(j-1)=t

Next j

Next i

执行上述程序段，下列说法正确的是（）

A. 交换过位置的数据，可能会再回到其初始位置 B. 执行完成后，数组元素a(1)到a(n)从小到大排列 C. 若n为5，整个排序过程总的比较次数是20 D. 整个排序过程总的交换次数至少为1

单选题普通

3. 现有三个整数序列：“1，2，3，4，5，”“7，1，6，8，3”、“9，8，7，6，5”。用选择排序算法分别对三个序列进行升序排列，比较次数依次为x、y、z，则下列关系正确的是( )

A. x=y=z B. x>y>z C. y>z>x D. z>y>x

单选题普通