- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术查找算法及程序实现同步练习

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

k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

m=(i+j) \ 2

If a(m)=k Then f=True

If a(m) > a(i) Then

If a(i) <=k And k < a(m) Then j=m-1 Else i=i+1

Else

If a(m) < k And k <=a(j) Then i=i+1 Else j=j-1

End If

Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（）

A、72 35 B、24 35 C、72 24 35 D、72 24 24 35

举一反三

王老师采用星级制对本班学生的平时表现进行评价，每位同学的评分数据存储在数据库中。学生的得分和星级对照如下表：

成绩	1-20	21-40	41-60	61-80	81-100
星级	一星	二星	三星	四星	五星

要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框list1中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。

程序运行界面如图所示：

【加试题】“轮转后有序数组（Rotated Sorted Array）”是将有序数组其中某一个数为分割点，将其之前的所有数都轮转到数组的末尾所得。比如{7，11，13，17，2，3，5}就是一个轮转后的有序数组，原有序数组中的字串{2，3，5}被轮转到了数组的末尾处。

对于一个轮转后有序数组arr也可以进行二分查找，算法思路如下（以升序为例）：每次根据查找的左侧位置L和右侧位置 R 求出中间位置M后，M左边[L，M]和右边

[M+1，R]这两部分中至少一个是有序的（可根据中间位置数据和边界数据的大小关系判断）。

arr[M]和待查找数据key比较

⑴arr[M]=key，返回M的值；

⑵若M位置右侧有序，当待查找数据在右侧，则下次在右侧查找，否则在M左侧查找。

⑶若M位置左侧有序，当待查找数据在左侧，则下次在左侧查找，否则在M右侧查找。

问题：

【加试题】若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”，查找某Key值的VB程序段如下：

n = 0 : i = 1 : j = 8

Key = Val(Text1.Text)

Do While i <= j

m = (i + j) \ 2

If Key = d(m) Then Exit Do 'Exit Do表示退出循环

If Key > d(m) Then

j = m - 1 : n = n - 1

Else

i = m + 1 : n = n + 1

End If

Loop

Label1.Caption = Str(n)

当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有（）

循环升序数组指的是将一个升序数组循环右移动若干距离之后变成的数组。如5、7、9、26、41、100，循环右移3位得到26、41、100、5、7、9。对分查找算法适当优化后也适用于循环升序数组。程序段如下:

l=1: r=6

Key=Val(Text1.Text)

Do While l <=r

m=Int((l+r) \ 2)

If a(m)=Key Then

⑴

Exit Do

Elself a(m) >=a(l) Then

⑵

Elself a(m) < a(l) Then

⑶

End If

Loop

上述程序中方框处可选语句为:

①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1

②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))

③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1

则(1)、(2)、(3)处语句依次是（）

下列VB程序实现数字字母混合序列分离后分别排序，最后又合并输出。具体算法如下：在文本框Text1输入若干组混合序列，每组序列中仅包含一组字母和一个多位数字，序列之间用逗号隔开，以逗号结束。单击“排序”按钮command1，把每组序列中的字母和数字分开，并分别排序，最后在列表框list1输出。排序规则如下：所有数字按从小到大升序排序，字母序列按长度升序排序，若长度相同，直接按字母序列大小升序排序（按字母的ASCII码排序，“A”<“Z”<“a”<“z”）。实现算法的部分程序界面如图所示，VB程序代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

c = Mid(s, i, 1)

If c = "," Then

a(k) = tmp1: b(k) = tmp2

tmp1 = 0: tmp2 = ""

①

Else

If Then

tmp2 = tmp2 + c

Else

tmp1=tmp1*10+val(c)

End If

i = i + 1

Loop

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

If Len(b(j)) > Len(b(j + 1)) Or ② Then

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

End If

Next j

Next i

For i = 1 To 6

List1.AddItem Str(a(i)) + b(i)

Next i

End Sub

有如下VB程序段：

i=1: j=63: n=0

Do While i<=j

M=(i+j)\2

If Key=a(m) Then

Exit Do

Elself Key＜a(m) Then

J=m-1:n=n-1

Else

I=m+1:n=n+1

End if

Loop

数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后n的值为6，则下列表达式成立的是（）

相关试卷

公司介绍

服务介绍

帮助中心