- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省台州市黄岩第二高级中学2017-2018学年高二下学期信息技术期中考试试卷

n个数据

冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较，在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序情况下，不需要再进行n-i对数据的比较。如对“17,18,19,24,23,20”这6个数据排序中，第1遍排序结束后数据为“17,18,19,20,24,23”，第2遍排序时不再需要对20及其前面4个数据进行比较。程序界面如下图所示

以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。

Dim n As Integer

Dim a (1 to 100) As Integer

Private Sub Form_Load()

‘n=10，排序前生成的数据存储在数组a中，并在列表框List1中显示

‘代码略

End Sub

Private Sub Command1_Click()

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

Do While i < n

start = n

For j = n To i Step

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

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

start = j

End If

Next j

Loop

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

举一反三

【加试题】有一组正整数，要求仅对其中的素数进行升序排序。排序后素数在前，非素数在后。排序示例如下。

排序前	86	71	5	41	81	79	37	89
排序后	5	37	41	71	79	89	86	81

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

Const n=8

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer，j As Integer，k As Integer，t As Integer

Dim flag As Boolean

‘读取一组正整数，存储在数组a中。代码略

For i=1 To n-1

‘(1)

If IsPrime(a(k))Then flag=True Else flag=False

For j=i+1 To n

If IsPrime(a(i))Then

If Then ‘(2)

k=j

flag=True

End If

Next j

If k<>i Then

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

End If

If Not flag Then Exit For ‘Exit For表示退出循环

Next i

‘依次输出排序后的数据。代码略

End Sub

Function IsPrime(m As Integer)As Boolean

‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False

‘代码略

End Function

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

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

'改错

a(j - 1) = a(j)

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

elseif ② then

pos = j

s = s + "→" + Str(pos)

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

List2.Clear

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示：

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

有如下VB程序段：

For i=1 to 3

For j=1 to 5-i

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

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

End If

Next j

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

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（）

小王在研究n个数的冒泡排序算法，发现可以从两个方面进行优化:

⑴在每遍冒泡过程中，若最后一次交换的是last与last-1位置，则last位置之前的相邻数据均已有序。进行下一遍冒泡时，无序区域设置[last， n]，这样可使无序区域缩小。

⑵若在某一遍排序中没有数据交换，说明待排序数据都已经有序，冒泡排序过程可在此遍排序后结束。因此可以引入一个变量flag，记录在每遍排序过程中是否发生了交换。

小王设计了如下VB程序，功能如下:按Cominandl“生成数据”后，生成一组随机的两位整数存入数组a，并输出在列表框List1中。单击Command2“排序”后，a中的数据进行降序排序，排序后的数据显示在列表框List2中，排序过程中实际的冒泡遍数显示在Label2上。程序运行界面如下所示。

实现上述功能的VB程序如下，回答下列问题:

小明最近学习了一种插入排序的算法。算法的基本思想如下：每次将一个待排序的记录，按其关键字大小插入前面已经排好序的记录集中，使记录依然有序，直到所有待排序记录全部插入完成。

如数据25 54 8 54 21 排序过程如下(n=5):

待排序数据：【25】 54 8 54 21

i=2:【25 54】 8 54 21

i=3:【8 25 54】 54 21

i=4:【8 25 54 54】 21

i=5:【8 21 25 54 54】

程序产生10个-100~100之间的整数，从小到大排序后输出，运行结果如图所示：

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

Dim a(0 To 10) As Integer

Private Sub Command1_Click()’产生10个随机数放在数组a中

Dim i As Integer

For i = 1 To 10

‘①

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer

For i = 2 To 10

a(0) = a(i)

j = i - 1

Do While a(0) < a(j)

‘②

j = j - 1

Loop

a(j + 1) = a(0)

Next i

For i = 1 To 10

List2.AddItem Str(a(i))

Next i

End Sub

①处的代码修改为{#blank#}1{#/blank#}。

②处的代码修改为{#blank#}2{#/blank#}。

相关试卷

公司介绍

服务介绍

帮助中心