- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省温州市环大罗山联盟2018-2019学年高二下学期信息技术期中教学质量检测试卷

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

（1）、代码“Private Sub Form_Load()”中的Load是（单选，填字母：A .对象名/B .属性名/C .事件名）

（2）、程序代码中加框①处有错，请改正为

（3）、补充完整程序代码中②处代码

（4）、程序代码中，如果在文本框中输入“4”，则label1显示的内容是

举一反三

在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。

【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

Do While i <= 9 And p p= False

For j = 10 To i + 1 Step -1

If Then '①

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

End If

Next j

i = i + 1

Loop

For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize '初始化随机函数 Rnd

For i = 1 To 10

a(i) = '②

List1.AddItem

Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

以下VB程序段用插入排序的方法实现10个数据升序排序：

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

For i=2 To 10

Text1.Text = ""

For i= 1 To 5

For j=i+1 To 6

If s(i) + s(i) < s(j) + s(i) Then

t= s(j): s(j)= s(i): s(i)=t

End If

Next j

Next i

For i=1 To 6

Text1.Text = s(i) + Text1.Text

Next i

If Then

tmp = a(i)

For j= To 1 Step -1 ‘依次后移

If tmp > a(j) Then Exit For

a(j+1)= a(j)

Next j

‘插入数据

End If

Next i

For i= 1 To 10

List1.Addltem a(i)

Next i

End Sub

要实现上述功能，方框①②③中的语句分别是（）

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

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

For i=1To（n-1）\2

For j=1To n-i*2

If a 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#}

有如下Python程序段：

a=[27,5,25,36,78]

f=[False]*5

i=0

while i<4 and not f[i]:

for j in range(4, i, -1):

if a[j]<a[j-1]:

a[j], a[j-1]=a[j-1], a[j]

f[i]=True

i+=1

执行该程序段后，数组f中值为True的元素个数是（）

相关试卷

公司介绍

服务介绍

帮助中心