- 二一组卷

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

浙江省浙南名校联盟2020届高三上学期信息技术第一次（10月）联考试卷

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到n个非降序数保存在数组a(1)—a(n)中，并显示在 List1中。在文本框Text1中输入成绩key，单击“查找”按钮，则在标签 label1中显示共有多少位同学的成绩大于等于该成绩。

（1）、加框1处的程序代码有错，应改为。

（2）、请在划线处填入合适代码：

Dim a(1000) As Integer, n As Integer Private Sub Command1_Click()

'从数据库获取n 个成绩存储在 a(1)---a(n)组中，代码略

For i = 2 To n ‘排序

tmp = a(i)

j = 1

Do While tmp > a(j)

j = j + 1

If ① Then Exit Do

Loop

For k = i To j + 1 Step -1

a(k) = a(k - 1)

Next k

'改错（1）

Next i

For i = 1 To n List1.AddItem Str(a(i))

Next i End Sub

Private Sub Command2_Click()

Dim key As Integer, i As Integer, j As Integer, m As Integer

key = Val(Text1.Text)

i = 1: j = n

Do While i <= j

m = (i + j) \ 2

If ② Then

j = m - 1

Else

i = m + 1

End If

Loop

Label1.Caption = "共有" + ③ + "位同学大于等于该成绩。"

End Sub

①②③

举一反三

【加试题】过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了所有人在最短时间内过桥，设计算法如下：

⑴如果只有1人过桥，时间为个人过桥时间。

⑵如果有2人一起过桥，时间以慢的人为准。

⑶如果有3个人a、b、C，耗时T_a<T_b<T_c ，过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。

⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a<T_b<……<T_y<T_x ，这时有两种可选方案，选择其中用时少的，直至剩余少于4人。

①最快的1个将最慢的2个分别送过桥。

a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；

②最快的2个将最慢的2个送过桥。

让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。

为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。

【加试题】已知数组元素 a(1)到 a(9)的值为{19,28,37,46,55,64,73,82,91},若在 Text1 中输入 29，然后执行下面程序段：

Key = Val(Text1.Text) \10 Text2.Text = ""

i = 1: j = 9: f = False

Do While i <= j And Not f m = (i + j)\ 2

If a(m) Mod 10 = Key Then search = m: f = True

ElseIf a(m) Mod 10 > Key Then i = m + 1

Else

j = m - 1 End If

Text2.Text = Text2.Text + Str(m) Loop

执行完该程序段后，Text2中显示的内容是（）

用以下对分查找算法:在一个包含有重复元素且从小到大排序(相等元素排在一起)的整数数组a中，查找某个重复出现的整数key，其中数组元素的总个数是n。

i=1: j=n

Do While i <=j

m=(i+j) \ 2

If a(m) < key Then i=m+1

Else

j=m-1

End If

Loop

那么执行该程序后，下列说法正确的是（）

编写一个VB程序，实现程序功能如下：随机产生10个1~20之间的整数存放在数组a，在列表框List1中显示，单击“排序”按钮Command1后，在列表框List2中显示升序排序后的结果。具体算法描述如下：引入数组index，index(i)存储i位置应放置的数组元素的下标。排序完毕，a(index(i))成为升序序列，即a(index(1))≤a(index(2))≤a(index(3))≤……≤a(index(i))。在数组a的所有元素中找出最小元素，将其所在位罝存放在数组元素index(1)中，然后在余下的元素中找出最小元素，将其所在位置存放在数组元素index(2)中，以此类推，直到完成所有元素排序。如n=5时，数组a排序后各变量值如下表所示。

i	1	2	3	4	5
a(i)	17	19	9	13	6
index(i)	5	3	4	1	2
a(index(i))	6	9	13	17	19

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

Const n = 10

Const maxn = 20

Dim a(1 To n) As Integer, index(1 To n) As Integer, flag(1 To n) As Boolean

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

flag(i) = False

a(i) = Int(Rnd() * maxn) + 1

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For i = 1 To n

For j = 1 To n

If flag(j) = False Then k = j: Exit For

Next j

For m = k + 1 To n

If Then k = m ‘⑴

Next m

index(i) = k

flag(k) = True

Next i

For i = 1 To n

List2.AddItem ‘⑵

Next i

End sub

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

小吴研究插入排序算法，若对无序数列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

请回答下列问题。

某对分查找算法的VB程序段如下:

Key=int(Rnd*49)*2+1

s=0:i=1:j=10

Do While i<=j

m=(i+j)\2

if Key=a(m) Then Exit Do

if Key<a(m) Then

j=m-1:s=2*s

Else

i=m+1:s=2*s+1

End if

Loop

数组元素a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程度段后，s的值不可能为（）

相关试卷

公司介绍

服务介绍

帮助中心