- 二一组卷

题型：填空题题类：真题难易度：困难

浙江省普通高校招生选考科目信息技术试卷（2019.4）

【加试题】小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。算法的VB程序段如下，但加框处代码有错，请改正。

’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列

For i = 1 To (n - 1) \ 2

For j = 1 To n - i * 2

If Then ‘⑴

t = a(j): a(j) = a(j + 2): a(j + 2) = t

End If

Next j

Next i

For i = 1 To n \ 2

j = 2 * i - 1

If a(j) > a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = t

Next i

For i = Step 2 ‘⑵

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

Do While t < a(j)

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

Loop

a(j + 1) = t

Next i

⑴ ⑵

举一反三

【加试题】实现某排序算法的部分VB程序代码段如下：

For i = 1 To 7

For j = 8 To i+1 step -1

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

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

End If

Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（）

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如例图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True '（1）

flag=False

For j=n To i+1 Step -1

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

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

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

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

（加试题）有如下VB程序段：

Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

k = i

For j = i + 1 To n - 1

If a(k) < a(j) Then k = j

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next i

Text1.Text = Str(a(1))

该程序段运行后，文本框 Text1 中显示的内容是：（）

有如下程序段：

For i=1 To 2

For j=1 To 6-i

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

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

End If

Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段处理后，数组元素a(1)到a(6)的值依次为（）

【加试题】小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)、a(2)、a(3)、……、a(n)中。他编写的VB程序段如下：要使程序实现上述功能，则方框①②中的语句分别是（）

If temp >= a(n) Then

a(n + 1) = temp

Else

j = n

Do While j >= 1 And temp < a(j)

①

j = j -1

Loop

②

End If

编写一个查找最接近的数的VB程序：程序运行时，在文本框Text1中输人产生随机数的个数（1到100之间），单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数，然后在文本框Text2中输入要查找的整数，单击命令按钮"查找"后，在标签Label3中显示随机整数序列中与待查找数最接近的整数（当最接近的数有2个时，输出较大的一个）。程序运行效果如图所示：

实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer '存储随机数的个数

Dim f(1To100)As Boolean

'f(i)为True时表示随机整数i已经产生过

Dim a(1 To 100)As Integer

'依次存放升序排序后的n个随机数

Private Sub Command1_Click()

'命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

t=Int(Rnd * 100+1)

Do While f(t)=True

t=Int(Rnd * 100+1)

Loop

{#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100 '实现排序并输出

If f(i)=True Then

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

a(j)=i

List1.AddItem Str(i)

End If

Next i

End Sub

Private Sub Command2_Click()

'命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)): Exit Sub

If key >=a(n) Then Label3. Caption=Str(a( n)): Exit Sub

L=1: R=n

Do While L<=R '找到与 key 较为接近的两个数a(R)和a(L)

m=(L+R)\2

If key<=a(m)Then

R=m-1

Else

L=m+1

End If

Loop

If {#blank#}3{#/blank#}Then

'在a(R)和 a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a L))

End If

End Sub

相关试卷

公司介绍

服务介绍

帮助中心