- 二一组卷

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

浙江省高中信息技术排序算法及程序实现同步练习

有如下程序段：

b(0)=0

For i=1 To 6

k=i

For j=i+1 To 7

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

Next j

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

If a(i) <> a(i-1) Then

b(i)=i

Else

b(i)=b(i-1)

End If

Next i

若数组元素a(1)到a(7)的值依次为“6,7,6,3,9,2,3”，则经过上述程序加工后，b(5)的值是（）

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

举一反三

【加试题】有如下程序段：

Const n=5

For i=1 To 2

For j=n-1 To i step-1

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

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

有一组原始数据：23、25、63、84、77、8。利用选择排序算法进行降序排序，请问第二遍加工后数据的顺序为（）

运动会田径比赛，记分裁判把各赛道运动员的成绩表交给录入员录入到计算机中，录入人员编制了如下程序｡运行程序，按道次顺序依次输入8个成绩，道次号存放在数组a中，相应道次的运动员比赛成绩存放于数组b中，并将原始成绩显示在列表框List1 中｡单击“成绩排序”按钮(Command1)，将原始成绩从好到差排序，排序结果显示在列表框List2 中｡运行效果如图所示｡

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

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

{#blank#}1{#/blank#}

Do While i < n

start = n

For j = n To i Step {#blank#}2{#/blank#}

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

t = a(j): {#blank#}3{#/blank#} : a(j - 1) = t

start = j

End If

Next j

{#blank#}4{#/blank#}

Loop

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

【加试题】某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列。例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶的编号顺序读出旗子数量，没有旗子的桶略过,得到有序整数为“2,3,5,5,8”。

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(10) As Integer '数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 0 To 10

For j = 1 To ①{#blank#}1{#/blank#}

List2.AddItem CStr(i)

Next j

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 0 To 10 '将数组初始化为0

a(i) = 0

Next i

For i = 1 To 6 '产生6个[0,9]的随机数

t = Int(Rnd * 10)

a(t) = '第t桶中小旗子数量加1 ② {#blank#}2{#/blank#}

List1.AddItem CStr(t)

Next i

End Sub

小明编写了一个有关整数闭区间合并操作的VB程序：从数据库读取闭区间数据(左端点和右端点)，存储在数组a中，按区间数据左端点升序排序，然后进行合并操作，操作结果存储在数组b中。

例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

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

相关试卷

公司介绍

服务介绍

帮助中心