- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省衢州市2021届高三上学期信息技术12月教学质量检测信息技术试卷

小吴研究插入排序算法，若对无序数列5，2，9，5，3，利用传统的简单插入排序进行升序排序，其方法如下：

首先将5取出，得到序列5；

第二步将2取出，插入序列得到2，5；

第三步将9取出，插入后得到2，5，9；

第四步将5取出，插入后得到2，5，5，9；

第五步将3取出，插入后得到2，3，5，5，9，排序完成。

小吴对这种插入排序进行了一些改进，将无序数列存入a数组中，将排序后的数据存入b数组中，同时保证b数组不存在重复的数字。对于重复出现的数字，用cnt数组记录重复个数。例如无序数列8、6、7、4、4、9、1、9、9、8，a(1)～a(10)存储原数据，b(1)～b(6)存储排序后的不重复数据，cnt(1)～cnt(6)存储每个数字重复的个数，如图a所示。

数组/下标	1	2	3	4	5	6
b	1	4	6	7	8	9
cnt	1	2	1	1	2	3

图a

程序运行后，自动随机生成原数组并显示在列表框List1中，点击按钮“开始”后，生成升序排序数组并显示在列表框List2中，程序运行界面如图b所示。

图b

请回答下列问题。

（1）、若要在窗体载入后让窗体标题显示“排序改进算法”，则下列操作可行的是（单选，填字母。）

A、直接将窗体属性栏中的“Text”属性值修改为“排序改进算法” B、在程序的Form_Load()事件中写上代码 Form1.Caption =“排序改进算法” C、在程序的Command1_Click()事件中写上代码Form1.Caption =“排序改进算法”

（2）、请完成程序中的填空。

Const n = 10

Dim a(0 To 100) As Integer， b(0 To 100) As Integer， cnt(1 To 100) As Integer

Dim Ln As Integer， pos As Integer 'Ln表示b数组的长度

Function search(key As Integer)

Dim i As Integer

For i = 1 To Ln

If b(i) >= key Then Exit For

Next i

search = i

End Function

Private Sub Command1_Click()

Dim i As Integer， j As Integer

Ln = 0

For i = 1 To n

pos =

If b(pos) <> a(i) Then

Ln = Ln + 1

j = Ln

Do While j > pos

b(j) = b(j - 1)

j = j - 1

Loop

b(j) = a(i)

cnt(pos) = 1

Else

End If

Next i

For i = 1 To Ln

For j = 1 To cnt(i)

List2.AddItem Str(b(i))

Next j

Next i

End Sub

Private Sub Form_Load()

For i = 1 To n

a(i) = Rnd() * 10 + 1

List1.AddItem Str(a(i))

Next i

End Sub

（3）、程序中加框处存在错误，请改正。

举一反三

【加试题】郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个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

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。

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

Const n1=9 ‘第1段已排序数据长度为n1

Const n2=6 ‘第2段已排序数据长度为n2

‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

‘数组c依次存储两段已按从小到大排序的数据

‘并在列表框List1中显示，代码略

List2．Clear

A位置

For i=n1+1 To n1+n2

j=i

B位置

Do While j>1 And Flag

t=c(j)

c(j)=c(j-1)

c(j-1)=t

C位置

Else

Flag=False

End If

j=j-1

‘②

Loop

Next i

For i=1 To n1+n2

List2．Addltem c(i)

Next i

End Sub

活动课上，n个学生要两两组队进行拔河比赛，要求每个小组总体重不超过120kg，小林想知道最多可以组成多少个队伍，并希望得到可行的组队方案。于是设计了如下界面的程序，在文本框Text1中输入n 个学生的体重(数字之间用逗号隔开)，单击“队伍”按钮Command1后在标签Label1上显示最多可组队数量，同时在列表框List1输出方案。

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

Dim n As Integer

Dim a(1 To 50) As Integer

Sub makedata(s As String) ‘该过程实现将输入的体重分别存入数组a中

Dim in As Long, x As Long, c As String, i As Integer

m=Len (s) : n=0

For i=1 To m

c=Mid(s, i, 1)

If c >=“0” And c <=“9” Then

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

x=x+Asc(c)-Asc(“0”)

Else

If x > 0 Then n=n+1: a(n)=x

x=0

End If

Next i

n=n+1: a(n)=x

End Sub

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer, t As Integer

Dim cnt As Integer, st As Integer, ed As Integer

s=Text1.Text Call makedata(s) ‘调用过程

For i=1 To n-1 ‘实现降序排序

For j=n To i+1 Step-1

If{#blank#}2{#/blank#}Then

a(j)=a(j)+a(j-1) : a(j-1)=a(j)-a(j-1) :{#blank#}3{#/blank#}

End If

Next j

Next i

‘下列程序段实现计算最多可组队伍

cnt=0: st=1: ed=n

Do While st < ed

If a(st)+a(ecl) <=120 Then

List1. AddItem Str(a(st))+“和”+Str(a(ed))+“组队”

cnt=cnt+1

st=st+1

{#blank#}4{#/blank#}

Else

st=st+1

End If

Loop

Label2. Caption=“最多可以组”+Str (cnt)+“组队伍”

End Sub

有如下程序段：

i = 1

Do While i <= 5

If i = 0 or a(i -1) <= a(i) Then

i = i + 1

Else

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

i = i - 1

End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为( )

有如下VB程序段：

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

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

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（）

数组a中存储n个2位正整数，从倒数第2个数开始，利用对分查找的思想，找到它的所在位置，并插入正确位置中，实现整个数组有序。实现该功能的VB程序如下：

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, left As Integer

Dim right As Integer, m As Integer, t As Integer

i = n-1

Do While i > = 1

________

right = n

t = a(i)

Do While left < = right

m = Int((left + right)/2)

If a(m) = t Then right = m: Exit Do

If a(m) < t Then

left = m + 1

Else

right = m-1

End If

Loop

For j = i To right-1

a(j) = a(j + 1)

Next j

________________

i = i-1

s = “”

For j = 1 To n

s = s + Str(a(j))

Next j

List1.AddItem s

Loop

End Sub

相关试卷

公司介绍

服务介绍

帮助中心