- 二一组卷

题型：综合题题类：真题难易度：普通

浙江省2018年4月普通高校招生选考信息技术考试试卷

【加试题】有一组正整数，要求仅对其中的素数进行升序排序。排序后素数在前，非素数在后。排序示例如下。

排序前	86	71	5	41	81	79	37	89
排序后	5	37	41	71	79	89	86	81

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

Const n=8

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer，j As Integer，k As Integer，t As Integer

Dim flag As Boolean

‘读取一组正整数，存储在数组a中。代码略

For i=1 To n-1

‘(1)

If IsPrime(a(k))Then flag=True Else flag=False

For j=i+1 To n

If IsPrime(a(i))Then

If Then ‘(2)

k=j

flag=True

End If

Next j

If k<>i Then

t=a(k)：a(k)=a(i)：a(i)=t

End If

If Not flag Then Exit For ‘Exit For表示退出循环

Next i

‘依次输出排序后的数据。代码略

End Sub

Function IsPrime(m As Integer)As Boolean

‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False

‘代码略

End Function

（1）、⑴处加框代码应改为；

（2）、⑵处加框代码应改为。

举一反三

在冒泡排序时，当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此小明对冒泡排序进行了优化，编写了一个VB程序，功能如下，运行程序时，在列表框List1中显示随机产生的n个整数，单击“排序”的按钮Command1，在列表框List2中显示降序排序后的结果，运行的效果如图所示。

实现上述功能的VB代码如下，但划线处代码有错，请改正。

Const n As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

End Sub

Private Sub Command1_Click()

Dim tmp As Integer, i As Integer, j As Integer, k As Integer

For i = 1 To n - 1

k = 0

For j = n To i + 1 Step -1

If a(j) > a(j - 1) Then

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

k = k + 1

End If

Next j

If k > 0 Then i = n

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

【加试题】有如下程序段：

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

If a(j) < a(j - 1) Then

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

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（）

有如下程序段，数组元素a(1)到a(5)的值依次为“33，24，4，16，77”，执行该程序段后，变量t的值为（）

t=0

For i=1 To 4

flag=False

For j=5 To i+1 Step-1

If a(j)>a(i) Then flag=True

t=t+1

temp=a(j):a(j)=a(i):a(i)=temp

End If

Next j

If flag=False Then Exit For

Next i

【加试题】有如下VB程序段，当n为8时，上述程序段的运行结果a(1)至a(8)的值分别为1,8,3,6,5,4,7,2，则划线出应填入的代码分别为（）

n = Val(Text1.Text)

For i = 1 to n

a(i) = i

Next i

For i = 1 to n/2-1

For j = n to 2*(i+1) step -2

If ① Then t = a(j):a(j)=a(j-2):a(j-2)=t

Next j

For j = 1 to n- i*2 step 2

If ② Then t = a(j):a(j)=a(j+2):a(j+2)=t

Next j

Next i

【加试题】小李基于冒泡排序算法编写了一个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

小吴研究插入排序算法，若对无序数列5，2，9，5，3，利用传统的简单插入排序进行升序排序，其方法如下：

首先将5取出，得到序列5；

第二步将2取出，插入序列得到2，5；

第三步将9取出，插入后得到2，5，9；

第四步将5取出，插入后得到2，5，5，9；

第五步将3取出，插入后得到2，3，5，5，9，排序完成。

小吴对这种插入排序进行了一些改进，将无序数列存入a数组中，将排序后的数据存入b数组中，同时保证b数组不存在重复的数字。对于重复出现的数字，用cnt数组记录重复个数。例如无序数列8、6、7、4、4、9、1、9、9、8，a(1)～a(10)存储原数据，b(1)～b(6)存储排序后的不重复数据，cnt(1)～cnt(6)存储每个数字重复的个数，如图a所示。

数组/下标	1	2	3	4	5	6
b	1	4	6	7	8	9
cnt	1	2	1	1	2	3

图a

程序运行后，自动随机生成原数组并显示在列表框List1中，点击按钮“开始”后，生成升序排序数组并显示在列表框List2中，程序运行界面如图b所示。

图b

请回答下列问题。

相关试卷

公司介绍

服务介绍

帮助中心