- 二一组卷

题型：单选题题类：模拟题难易度：困难

浙江省2019年信息技术选考模拟试卷五

【加试题】以下程序段对数组a 中的8个数据a(1)到a(8)进行加工。

i = 1 : k = 0

Do While i<= 3

For j = 8 To i + 1 Step -1

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

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

k = k + 1

End If

Next j

i = i + 1

Loop

若数组a中的数据依次为“24，29，31，24，12，10，12，25”，则加工结束后，变量k的值为（）

A、9 B、11 C、13 D、15

举一反三

【加试题】一组数据 22,94,17,125,63，若采用冒泡排序算法对其进行升序排列，则需要经历几遍加工？第一次加工交换多少次？（）

某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是 ( )

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

For i=1 To 3

For j=5 To i Step-1

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

k=a(j)：a(j)=a(j+1)：a(j+1)=k

EndIf

Next j

Listl．AddItem Str(a(i))

Next i

数组元素a（1）到a（6）的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框List1中显示的内容是（）

把杂乱无章的数据变为有序的数据，这一过程称为排序。冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。它的方法是把待排序的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程序，实现程序功能如下：随机产生10个1~20之间的整数存放在数组a，在列表框List1中显示，单击“排序”按钮Command1后，在列表框List2中显示升序排序后的结果。具体算法描述如下：引入数组index，index(i)存储i位置应放置的数组元素的下标。排序完毕，a(index(i))成为升序序列，即a(index(1))≤a(index(2))≤a(index(3))≤……≤a(index(i))。在数组a的所有元素中找出最小元素，将其所在位罝存放在数组元素index(1)中，然后在余下的元素中找出最小元素，将其所在位置存放在数组元素index(2)中，以此类推，直到完成所有元素排序。如n=5时，数组a排序后各变量值如下表所示。

i	1	2	3	4	5
a(i)	17	19	9	13	6
index(i)	5	3	4	1	2
a(index(i))	6	9	13	17	19

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

Const n = 10

Const maxn = 20

Dim a(1 To n) As Integer, index(1 To n) As Integer, flag(1 To n) As Boolean

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

flag(i) = False

a(i) = Int(Rnd() * maxn) + 1

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For i = 1 To n

For j = 1 To n

If flag(j) = False Then k = j: Exit For

Next j

For m = k + 1 To n

If Then k = m ‘⑴

Next m

index(i) = k

flag(k) = True

Next i

For i = 1 To n

List2.AddItem ‘⑵

Next i

End sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

某VB程序部分程序段如下：

For i=1 To n-1

For j=________

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

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

End If

Next j

Next i

为了使此程序段能实现数组a中的数据升序排列，则划线处应填入的代码是（）。

相关试卷

公司介绍

服务介绍

帮助中心