- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省Z20名校联盟(名校新高考研究联盟)2022届高三上学期信息技术8月第一次联考（暑假返校联考）试卷

有如下VB程序段：

max=0

For i=1 to 7

k=i

For j=i+1 to 8

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

Next j

If k<>i then

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

If max<k-i then max=k-i

End If

Next i

数组元素a(1)到a(8)的值依次为：19，9，48，32，5，17，23，8，执行该程序段后max的值为( )

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

举一反三

【加试题】学校组织评委对竞选文明班级的5个班级打分，分数依次是85，81，93，95，82，若采用冒泡排序算法对其进行排序，第一遍排序的结果是95，85，81，93，82，则第二遍的排序结果是（）

【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

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

For i = 2 To n

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

Do While t < a(j)

a(j + 1) = a(j) j = j – 1

If Then Exit Do ①

Loop

②

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

有如下VB程序段：

For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

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

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，,4,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

'获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略

bottom = n : i = 1

Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

If Then ‘⑴

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

ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理

‘⑵

bottom = bottom - 1

End If

Next j

i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

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

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：

⑴查找相邻两个非降序数据段在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后而没有元素，则本轮处理完毕；否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

⑵合并两个数据段

借助数组tmp，将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

⑶若数组中还有未处理的数据，则重复⑴⑵步骤。

每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据己构成非降序数据段，数据处理结束。

小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。算法的VB程序段如下，但加框处代码有错，请改正。

'待排序数据存储在数组a中（a（1）~a（n）），要求升序排列

For i=1To（n-1）\2

For j=1To n-i*2

If a Then '①

t= a（j）：a（j）= a（j+ 2）：a（j+2）= t

End If

Next j

Next i

For i = 1 To n\2

j = 2 * i - 1

If a（j）> a（j+ 1）Then t = a（j）：a（j）= a（j+1）：a（j+1）= t

Next i

For i= Step 2 '②

t = a（i）：j = i - 1

Do While t <a（j）

a（j+ 1）= a（j）：j =j-1

Loop

a（j+ 1）= t

Next i

①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}

相关试卷

公司介绍

服务介绍

帮助中心