有程序段如下： Dim a(1 To 8) As Integer K = 8: n = 8 For i = 1 To 3 For j = i + 1 To n If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j For j = n - i To i + 1 Step -1 If a(k) > a(j) Then t = a(k): a(k) = a(j): a(j) = t End If Next j k = k - 1 Next i 数组元素a(1)~a(8)中的初始值为：8,13,7,14,6,9,5,12,执行该程序段后，数组元素a(1)~a(8)中的值将变为（）

0 返回首页

1. 有程序段如下：

Dim a(1 To 8) As Integer

K = 8: n = 8

For i = 1 To 3

For j = i + 1 To n

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

For j = n - i To i + 1 Step -1

If a(k) > a(j) Then

t = a(k): a(k) = a(j): a(j) = t

End If

Next j

k = k - 1

Next i

数组元素a(1)~a(8)中的初始值为：8,13,7,14,6,9,5,12,执行该程序段后，数组元素a(1)~a(8)中的值将变为（）

A. 14,13,12,8,9,7,6,5 B. 5,6,7,9,8,12,13,14 C. 5,6,7,8,9,12,13,14 D. 14,13,12,9,8,7,6,5

【考点】

排序算法及程序实现;

【答案】

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

单选题困难

能力提升

变式训练

拓展培优

真题演练

换一批

1. 有如下VB程序段：

i = 0: j = 1

Do While j <= 5

If a(j) <> 0 Then i = i + 1: a(i) = a(j)

j = j + 1

Loop

For j = i + 1 To 5

a(j) = 0

Next j

数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为（）

A. 4,20,31,0,0 B. 31,20,4,0,0 C. 0,0,20,4,31 D. 20,4,31,0,0

单选题困难

2. 列表a有2*n个元素，各元素为互不相等的正整数(n≥1)，要在其中找到最大值和次大值，并分别存储到变量m1和m2中。实现该功能的Python程序段如下：

m1 = 0 ; m2 = 0

for i in range(0,2*n,2):

if a[i] > a[i + 1]:

t1 = a[i];t2 = a[i + 1]

else:

t1 = a[i+1];t2 = a[i]

m1 = t1 ; m2 = t2

elif :

m2 = m1 ; m1 = t1

elif :

m2 = t1

上述程序段中方框处可选代码为：①t1 > m1 ②t1 > m2 ③t2 > m1；则(1)(2)(3)处代码依次为（）

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

单选题普通

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

i=1: flag=True

Do While i<6 And flag=True

flag=False

For j =6 To i+1 step -1

If a(j) > a(j-1) Then

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

flag=True

End If

Next j

f(i)=1 'f 数组初值均为 0

i=i+1

Loop

For i=1 To 6

s=s+f(i)

Next i

数组元素a(1)到a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s的值是（）

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

单选题普通

1. 【加试题】编写一个 VB 程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

Dim imin1 As Integer, imin2 As Integer

For i = 1 To n \ 2

imin1 = i: imin2 = i + 1

If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

For j = i + 2 To n - i + 1

If a(j) < a(imin1) Then

imin2 = imin1: imin1 = j

'①

imin2 = j

End If

Next j

If i <> imin1 Then t = a(i): a(i) = a(imin1): a(imin1) = t

If imin2 = i Then '②

If n - i + 1 <> imin2 Then

t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

① ②

填空题困难

2. 【加试题】某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小数）并显示在List1中，在Text1和Text2中输入排序范围的起始位置和结束位置，在b(i)中存储a(i)在该范围中的排位，并输出排位到列表框List2，实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize '生成 1000 个随机数 For i = 1 To 1000

① '产生随机数，保留二位小数

b(i) = 1 '初始排位为 1

List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)

js = Val(Text2.Text)

For i = ks To js

For j = ks To js

If Then b(i) = b(i) + 1 ②

Next j

Text1 Text2

List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

① ②

综合题困难

3. 如图a所示，在excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60,100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示。

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

Dim a(1 to 10) As Integer ‘存储原始数据

Dim b(1 to 10)As Integer ‘存放名次

Private Sub Command1_Click()

Dim i As Integer, j As Integer, n As Integer

For i=1 To 10

n=0

For j=1 To 10

Then n=n+1 ‘①

‘②

Next j

Next i

For i= 1 to 10

List2.Additem a(i)&” ”&b(i)

Next i

End Sub

Private Sub Form_Load()

‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：

②处代码应改为：

填空题困难

1. 某项活动有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)

综合题困难

2. 有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的值为。

综合题困难

3. 分组冒泡排序。分别对数组a的奇数和偶数位置的元素进行冒泡排序，即采用“跳跃式冒泡”的方法，每次跳跃的步长为2，将数组分成2个子序列，分别对这2个子序列进行排序。例如，对数组a=[6,3,5,4,1,2,8,7]进行分组跳跃式升序冒泡排序，排序后的数组a=[1,2,5,3,6,4,8,7]。

(1) 对数组a=[4,5,2,9,6,7,10,3,8,1]进行分组跳跃式升序冒泡排序，则排序后的数组

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

import random

n=8

a=[random.randint(1 ,9) for i in range(n)]

for i in range(0,n,)

forj in range()

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

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

(3) 将分组跳跃式冒泡排序推广到每次跳跃的步长为m的情形，例如对数组a=[6,3,5,4,1,2,8,7]进行分组跳跃式升序冒泡排序，当m=3时，排序后的数组a=[4,1 ,26,3,5,6,7]。

相关代码如下，请在划线处填入合适的代码。

import random

m=int(input(“请输入步长m:”))

n=8

a=[random.randint(1,9) for i in range(n)]

print(“排序前”,a)

for i in range()

for j in range()

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

a[j],a[j-m]=a[j-m],a[j]

综合题困难

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

单选题普通