- 二一组卷

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

浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术4月月考试卷

有一组数，依次为3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排序方向为从前向后，则第二趟的排序结果是:（）

A、9 2 8 5 3 B、9 5 8 2 3 C、9 8 2 5 3 D、9 2 8 3 5

举一反三

【加试题】实现某排序算法的部分VB程序代码段如下：

For i = 1 To 7

For j = 8 To i+1 step -1

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

tmp = sz(j): sz(j) = sz(j-1): sz(j-1) = tmp

End If

Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（）

A班一组同学的英语听力成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为: （）

原始数据	24	27	16	15	24	18
第一遍	27	24	16	15	242	18
第二遍
第三遍	27	24	24	15	16	18
第四遍	27	24	24	18	16	15
第五遍	27	24	24	18	16	15

【加试题】小明基于冒泡排序算法编写了一个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

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

有如下VB程序段：

i = 1

Do While i <= 6

t = Int(Rnd * 10) + 1

If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

k = 1

For j = 1 To 6 - i * 2

If a(j) * k > a(j + 2) * k Then

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

End If

k = -k

Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

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及其前面3个数据进行比较。以下程序实现了冒泡排序的优化，在横处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

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

Private Sub Command1_Click()

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

i=2

Do While i < n start=n

For j=n To i Step-1

If{#blank#}1{#/blank#}Then

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

{#blank#}2{#/blank#}

End If

Next j

i=start+1

Loop

For i=1 To n

List2.AddItem{#blank#}3{#/blank#}

Next i

End Sub

下列 VB 程序段的功能是将数组元素 a(1)到a(n)进行排序：

For i= n To 2 step -1

For j =

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

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

End If

Next j

Next i

方框中的代码会是以下四句中的某一句：

① 1 To i -1 ② n–1 To i Step -1

③ 1 To n - i ④ n–1 To n - i+1 Step-1

正确的选项是（）

相关试卷

公司介绍

服务介绍

帮助中心