- 二一组卷

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

浙江省2020届高三上学期信息技术五校联考试卷

有如下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、2,7,8,10,6,9,5,3 B、10,8,7,2,6,9,5,3 C、2,3,5,8,6,7,10,9 D、2,3,5,6,7,8,9,10

举一反三

有如下程序段：

s = ""

For i = 1 To 3

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

s = s + Str(a(i))

Next i

Text1.Text = s

数组元素a(1)到a(7)的数据依次为“3,9,1,5,8,6,2”，经过该程序段“加工”后，文本框Text1中显示的内容是（）

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示：

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

【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n

i = 1

Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

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

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

ElseIf a(j) = a(j - 1) Then '相邻两个数据相等，进行剔除处理

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

bottom = bottom - 1

End If

Next j

i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

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

Next i

End Sub

数组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

有如下VB程序段：

For i= 1 To 3

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

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心