某校5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009，若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（）

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

浙江省东阳市第二高级中学2014-2015学年高一上学期信息技术期末考试试卷

某校5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009，

若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（）

A、2120 2009 1009 1987 1201 B、2120 2009 1009 1201 1987 C、1009 1201 2120 1987 2009 D、1009 1201 2009 2120 1987

举一反三

采用冒泡排序将六个数“22，14，18，17，21，16”从小到大进行排序，则第二轮交换数据后的顺序是（）

【加试题】编写一个 VB 程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

Dim imin1 As Integer, imin2 As Integer

For i = 1 To n \ 2

imin1 = i: imin2 = i + 1

If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

For j = i + 2 To n - i + 1

If a(j) < a(imin1) Then

imin2 = imin1: imin1 = j

'①

imin2 = j

End If

Next j

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

If imin2 = i Then '②

If n - i + 1 <> imin2 Then

t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

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

Next i

End Sub

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

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

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

摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组 h和数组c中。程序运行界面如图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮(Command1)，在文本框Text4中输出小林最多能摘得的苹果数ans。

相应程序如下，在划线处填入适当的语句和代码，把程序补充完整。

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中,并显示在List1中,代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, i As Integer, j As Integer, m As Integer

a = Val(Text1.Text) ‘梯子高度

b = Val(Text2.Text) ‘手伸直高度

s = Val(Text3.Text) ‘可用力气

m = 0

For i = 1 To n ‘将所有能够摘得的苹果所需力气存储到数组d中

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

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If{#blank#}2{#/blank#}Then k = j

If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

End If

ans = 0 ‘用剩余的力气去摘最多的苹果

For i = 1 To m

If s >= d(i) Then

{#blank#}3{#/blank#}

ans = ans + 1

End If

Text4.Text = Str(ans)
End Sub

有如下VB程序段：

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

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

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（）

数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如下表所示：

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While ①

If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If

c(pc) = s

If flag Then

pc = m + n - pc + 1

Else

pc =

End If

②

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

相关试卷

公司介绍

服务介绍

帮助中心