- 二一组卷

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

【bj】高中信息技术综合库——排序算法及程序实现1

某VB程序部分程序段如下：

For i=1 To n-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

为了使此程序段能实现数组a中的数据升序排列，则划线处应填入的代码是（）。

A、1 to n-I B、2 to n-i+1 C、n to i+1 D、i+1 to n

举一反三

小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub Form_Load()

a(1) = "中国"

b(1) = 308

‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim t As Integer,f As Integer

List1.Clear

For i = 1 To 3

For j = {#blank#}1{#/blank#}To 2 Step -1

If {#blank#}2{#/blank#}Then

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

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

End If

Next j

Next i

For i = 1 To 3

List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))

Next i

End Sub

有如下某排序算法程序段：

For i=1 To 3

k=i

For j=i+1 To 6

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

Next j

t=a(i):a(i)=a(k):a(k)=t

Next i

数组元素a(1)到a(6)的值依次为“8,2,9,3,5,1”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：

待排序数据已存储在数组a中(a(1)~a(n))

For i= 1 To n-2

k= i

For j= ‘①

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

Next j

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

Next i

For i= 1 To n\ 2

j=2*i-1

If a(j)< a(j+ 1) Then t= a()： a()=a(j+ 1)： a(j+1)=t

Next i

For i= ‘②

t= a(i)：j-i

Do While t> a(j)

a(j+1)=a()：j=j

Loop

‘③

Next i

上述程序段中3处方框处的代码分别为（）

小王基于选择排序算法编写了一个VB程序，功能如下：读取若干数据依次存储在数组a中，并将数据分段排序，每段数据的元素个数及排序的次序要求依次存储在数组b中。如图，在文本框Text1中显示数组a的原始数据，在文本框Text2中显示每段数据的元素个数及排序次序要求(0表示升序、1表示降序)；单击“排序”按钮Command1，根据要求输出对每段数据进行排序的结果。实现上述功能的VB程序如下：

Dim n As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Form Load()

‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。

‘将每段数据的元素个数及排序的次序依次存储到数组b中；

‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，

‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....

“代码略。

End Sub

Private Sub Command1_Click())

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

Dim pb As Integer, endpos As Integer

pb=1: endpos =b(1)

For i=1 To n-1

If i=endpos Then

pb=pb+2:i=endpos+1

①

End If

k=i

For j =i+1 To endpos

If Then k=j ‘⑵

Next j

If k<>i Then

②

End If

Next i

Text3.Text ="" ‘⑷

For i=1 To n

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

Next i

End Sub

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

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

⑵合并两个数据段

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

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

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

下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a(9)的值依次为72，61，3，95，39，38，64，65，98，程序运行后，数组元素a(1)到a(9)的值依次为98，72，64，39，3，38，61，65，95。

m = (1 + n) \ 2 ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

If i Mod 2 = 1 Then

k = q + 1: q = q + 1

Else

k = p - 1: p = p - 1

End If

pos = k

For j = 1 To n

If And a(j) < a(k) Then k = j

Next j

If pos > k Then

t = a(pos): a(pos) = a(k): a(k) = t

End If

Next i

上述程序段方框处的代码为（）

相关试卷

公司介绍

服务介绍

帮助中心