- 二一组卷

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

浙江省温州市十五校联盟2018-2019学年高二下学期信息技术期末考试试卷

有如下 VB 程序段：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

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

Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（）

A、“23”,”231”,”234”,”34”,”123” B、“23”,”123”,”231”,”234”,”34” C、“23”,”34”,”123”,”231”,”234” D、“123”,”23”,”231”,”234”,”34”

举一反三

某社区进行“摘葡萄”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据葡萄串数进行排序，程序中所有参赛者的成绩保存在数组m中，对应的姓名保存在数组name中。

程序运行界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim m(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

For i = 1 To 9

k = i

For j = i + 1 To 10

If ① Then k = j

Next j

If k <> i Then

x = m(i) : m(i) = m(k) : ②

y = name (i) : name (i) = name (k) : name (k) = y

End If

Next I

For I = 1 To 10

List2.AddItem Str(m(i)) + " " + name(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

把杂乱无章的数据变为有序的数据，这一过程称为排序。冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据，从最下面一个元素起，自下而上的比较相邻两个元素中的数据，如果较小的数据在下面，那将较小的数据换到上面的元素中（否则不交换）重复这一过程，直到处理完最后两个元素中的数据，称为一遍加工，当第1遍加工完成时，最小的数据已经上升到第1个元素的位置；第2遍加工对余下的n-1个元素重复上述处理过程，第2遍加工完成后剩下最小的数据上升到第2个位置；直到n-1遍加工完成后发现数据完成了从小到大的排序。

假设有4个数据：27 36 32 18，需要4-1=3遍加工

第1遍加工如下：

第2遍加工如下：

第3遍加工如下：

假设4个数据放在数组d(1), d(2),d(3), d(4)

第1遍：比较d(j)、d(j-1)，j=4,3,2,比较3次；

第2遍：比较d(j)、d(j-1)，j=4,3,比较2次；

第3遍：比较d(j)、d(j-1)，j=4,比较1次；

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

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

如数据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#}。

下列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

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

某项活动有n个单位（编号1到n）参加，需将员工分成若干个小组，每个小组的人数上限为m，小组编号按新建次序从1开始编号。分组时，首先按单位编号次序依次在各单位内部分分组，每m人分配到一个新建小组中，不足m人的剩余员工暂不分配；然后按剩余员工人数由大到小的顺序，依次为各单位剩余员工分配小组。

若某单位剩余员工人数为k，则分配方法为：在已建的小组中查找空位数（该小组还可容纳的人数）大于或等于k的小组，如果找到的小组有多个，则选择空位数最少的小组，将此k人分配到该小组中；如果没有找到，则新建一个小组，将此k人分配到该小组中。

设n为5，m为20，各单位员工人数及单位内部的分组过程如图a所示，各单位剩余员工的分组过程如图b所示。

编写程序：给定各单位编号及员工人数，根据上述方法进行分组处理，按单位编号次序输出各单位所分配的分组编号。请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心