- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省杭州市2017-2018学年高三上学期信息技术教学质量检测

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处语句有错，请改正。

Const n1=9 ‘第1段已排序数据长度为n1

Const n2=6 ‘第2段已排序数据长度为n2

‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

‘数组c依次存储两段已按从小到大排序的数据

‘并在列表框List1中显示，代码略

List2．Clear

A位置

For i=n1+1 To n1+n2

j=i

B位置

Do While j>1 And Flag

t=c(j)

c(j)=c(j-1)

c(j-1)=t

C位置

Else

Flag=False

End If

j=j-1

‘②

Loop

Next i

For i=1 To n1+n2

List2．Addltem c(i)

Next i

End Sub

（1）、①处加框代码有错，应修改为。

（2）、②处“Flag=True”语句的位置有错，应放在(单选，填字母：A／B／C)位置。

举一反三

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

【加试题】数据“56，23，78，11，8”依次存放在数组a（1）到a（5）中，执行下列VB程序段后，数组a（1）到a（5）中的数据依次为（）

For i=1 to 2

For j=1 to 5-i

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

Next j

Next i

某算法的部分程序段如下：

For i=1 To 7

k=i

For j=i+1 To 8

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

Next j

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

Next i

数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（）

有如下程序段：

i = 1

Do While i <= 5

If i = 0 or a(i -1) <= a(i) Then

i = i + 1

Else

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

i = i - 1

End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为( )

某次技术考试后进行成绩处理，学生信息包括姓名、班级、成绩，要按班级从小到大，同一班级按成绩从高到低进行排序。按上述要求，编写一个VB程序，功能如下：在列表框List1中显示排序前的数据，单击“排序”按钮Command1，在列表框List2中显示排序后结果，程序运行界面如图所示。

某排序算法，VB代码如下：

i=1

Do While i<=5

If i = 0 or a(i - 1)<= a(i) Then

i=i+1

Else

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

i=i-1

End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（）

相关试卷

公司介绍

服务介绍

帮助中心