- 二一组卷

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

浙江省普通高校招生信息技术选考模拟卷（二）

【加试题】小赵对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下，要使程序实现上述算法思想，则方框中的语句是（）

p = 1: q = 10

Do While p < q

iMin = p: iMax = p

For i = p + 1 To q

If a(i) < a(iMin) Then iMin = i

If a(i) > a(iMax) Then iMax = i

Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

t = a(iMax): a(iMax) = a(q): a(q) = t

p = p + 1

q = q - 1

Loop

A、If iMax = p Then iMax = iMin B、If iMin = p Then iMin = iMax C、If iMax = p Then iMin = iMax D、If iMin = p Then iMax = iMin

举一反三

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem str(a(i))

Next i

End Sub

Private Sub Command1_Click()

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

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

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

'改错

a(j - 1) = a(j)

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

elseif ② then

pos = j

s = s + "→" + Str(pos)

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

List2.Clear

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

六位同学的英语听力成绩分别为24， 27， 16， 15， 24， 18，其排序过程如下表所示，其采用的排序算法及第二遍排序结果正确的是（）

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

For i = 1 To 2

k = i

For j = 6 To i + 1 Step -1

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

Next j

If k <> i then

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

End If

Next i

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

摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组 h和数组c中。程序运行界面如图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮(Command1)，在文本框Text4中输出小林最多能摘得的苹果数ans。

相应程序如下，在划线处填入适当的语句和代码，把程序补充完整。

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中,并显示在List1中,代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, i As Integer, j As Integer, m As Integer

a = Val(Text1.Text) ‘梯子高度

b = Val(Text2.Text) ‘手伸直高度

s = Val(Text3.Text) ‘可用力气

m = 0

For i = 1 To n ‘将所有能够摘得的苹果所需力气存储到数组d中

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

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If{#blank#}2{#/blank#}Then k = j

If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

End If

ans = 0 ‘用剩余的力气去摘最多的苹果

For i = 1 To m

If s >= d(i) Then

{#blank#}3{#/blank#}

ans = ans + 1

End If

Text4.Text = Str(ans)
End Sub

采用冒泡排序算法对数据序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正确的顺序是（）

有如下程序段：

s = input()

head = 0; tail = 0; ans = 0; tmp = '' q = ['']*100

flag = True

for i in range(len(s)):

if s[i] == ',':

while head!=tail:

tmp += q[head]

head += 1

if flag and head < tail:

head += 1

flag = not flag

ans += int(tmp)

tmp = ''; flag = True

elif '0'<=s[i]<='9':

q[tail] = s[i]

tail += 1

若输入 s 为“1-500,2023900-,”，执行该程序段，变量 ans 的值为（）

相关试卷

公司介绍

服务介绍

帮助中心