- 二一组卷

题型：单选题题类：模拟题难易度：普通

浙江省丽水、湖州、衢州三地市2021届高三下学期信息技术4月教学质量检测

有如下VB程序段：

n = 6

For i = 1 To n - 1

For j = n - 1 To i Step -1

If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) < b(j + 1) Then

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

t = b(j): b(j) = b(j + 1): b(j + 1) = t

End If

Next j

Next i

数组元素a(1)到a(6)的值依次为3，6，7，1，8，1；b(1)到b(6)的值依次为5，3，7，7，7，4。执行上述程序段后，a(2)与b(2)的值分别是（）

A、1，4 B、1，7 C、7，5 D、7，7

举一反三

【加试题】郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个VB排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示按销售量从低到高排序后的结果，在标签Label3中显示比较次数。程序中数组a和数组b分别存储品牌名称和对应的销售量。

Const n As Integer = 10 'n为品牌数

Dim a(1 To n) As String '数组a用于存储品牌名称

Dim b(1 To n) As Integer '数组b用于存储销售量

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

Dim n As Integer

n = 1

For i = 1 To 9

k = i

For j = i+1 To 10

If Then k = j

n=n+1

Next j

If ① Then

x = a(i): a(i) = a(k): a(k) = x

y = b(i): b(i) = b(k): b(k) = y

End If

Next i

For i = 1 To 10

List2.AddItem Str(a(i)) + " " + b(i)

Next i

Label3.Caption = "比较次数为：" + + "次"

End Sub

【加试题】小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组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

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

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个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

有如下VB程序段：

For i=1 to 3

For j=1 to 5-i

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

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

End If

Next j

Text1.Text=Text1.Text+Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（）

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

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

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

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

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

相关试卷

公司介绍

服务介绍

帮助中心