刷题宝
题库 高中信息

题干

某对分查找算法的VB程序段如下：
Key=val(Text1. text)
i = 1: j = 10
Do While i <= j
m = int<(i + j) / 2)
If a(m) = key Then Exit Do
If key>a(m) Then i = m + 1 Else j = m - 1
Text2. text= Text2. text+str(a(m))
Loop

数组元素a(1)到a(10)的值依次为“5，12，20，29，36，40，55，58，66，74”，若在文本框Text1中输入数据，执行该程序段，文本框Text2中显示的内容为：36，58，40，55，则key的值可能是

A．38B．45C．55D．70
上一题 下一题 0.99难度 选择题 更新时间:2019-11-19 04:09:25

答案(点此获取答案解析）

同类题1

关于对分查找，下列说法正确的是（ ）
A．对分查找的数据必须是有序排列的B．对分查找的数据类型必须是数值型的
C．顺序查找比对分查找的查找速度快D．使用对分查找对未排序数据查找时速度较慢

同类题2

某对分查找算法的VB 程序段如下:
i=l:j=9:n=0
key=Val(Text1,Text)
Do While i<=j
n=n+1
m=Fix((i+j) / 2)
If key=d(m) Then Exit Do    ’Exit Do 表示退出循环
If key<d(m) Then j=m-1 Else i=m+1
Loop
数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后,n 的值为2,则key 的值是(  )
A．39B．18 或61C．18 或72D．12 或61

同类题3

（加试题）编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a存放不同的分值，数组m存储相同分数的人数，数组mc存储不同分数的名次。例如，数据库中有一组成绩（已按降序排列）：98，95，95，92，90，90，87，按该算法，各数组值如下表所示：
i
1
2
3
4
5
a
98
95
92
90
87
m
1
2
1
2
1
mc
1
2
4
5
7
 
程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。

程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. AC
A．OLEDB. 12. 0; data source=〃 & App. Path & 〃\mydb. accdb〃
conn. Open
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0

Do While Not rs. EOF

s = rs. Fields (〃成绩〃)
If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________ 
End If
_____________
rs. MoveNext

Loop

End Sub
Private Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________ 

mid = (i + j) \ 2

If a(mid) < key Then

j = mid – 1

Else

i = mid + 1

End If

Loop
If a(mid) = key Then

Label2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid))

Else

Label2. Caption = 〃查无此分〃

End If
End Sub

同类题4

“旋转数组”过程是指将数组中的元素向右移动k个位置，其中k是非负数。以数组a向右移动3个位置为例，其移动过程有如下两种方法：
原始数据：
a(1)
a(2)
a(3)
a(4)
1
2
3
4
 
方法一：
①向右旋转1步：
a(1)
a(2)
a(3)
a(4)
4
1
2
3
 
②向右旋转2步：
a(1)
a(2)
a(3)
a(4)
3
4
1
2
 
③向右旋转3步：
a(1)
a(2)
a(3)
a(4)
2
3
4
1
 
方法二：
①将a(1)值放至旋转3个位置后位置a(4)：
a(1)
a(2)
a(3)
a(4)
1
2
3
1
 
②将原a(4)值放至旋转3个位置后位置a(3)：
a(1)
a(2)
a(3)
a(4)
1
2
4
1
 
③将原a(3)值放至旋转3个位置后位置a(2)：
a(1)
a(2)
a(3)
a(4)
1
3
4
1
 
④将原a(2)值放至旋转3个位置后位置a(1)：
a(1)
a(2)
a(3)
a(4)
2
3
4
1
 
有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如下图所示，请回答下列问题：

(1)当文本框Text3中输入内容修改为3时，执行该程序后，a(3)的值为___________。
(2)请在划线处填入合适的代码。
Dim a(20) As Integer
Const n = 20
Private Sub Form_Load()
'随机产生n个1,100之间的随机整数，依次存储到a(1)、a(2)、…a(n)中，并在文本框Text1显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, p As Integer, k As Integer,cnt As Integer,c As Integer,t As Integer
p = Val(Text2.Text)
k = Val(Text3.Text)
i = 1:start = 1:c = a(i):cnt = 1
Do While cnt<= p   '方法二

i =_____________

    t = a(i)
a(i) = c
If ________________ Then
start = start + 1
i = i + 1
c = a(i)
Else
c = t
End If

cnt = cnt + 1

  Loop
For i = 1 To k   '方法一
temp = a(n)
For j = _______________
a(j) = a(j - 1)
Next j

a(p + 1) = temp

  Next i
For i = 1 To n
s = s + Str(a(i))
Next i
Text4.Text = s
End Sub

同类题5

某对分查找算法的VB程序如下：
n=0
i=1
j=6
key=val(Text1.text)
f=False
Do While i<=j And Not f
m=(i+j+1)\2
n=n+1
If key=d(m) Then
f=True
ElseIf key>d(m) Then
j=m-1
Else
i=m+1
End if
Loop
数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是（ ）
A．87或29B．72或18C．72 或 29D．53 或 18
相关知识点
刷题宝 没有分数是刷题提高不了的！ 粤ICP备12066032号

本站仅为免费收集试题提供给学生刷题，不做任何盈利性活动！如无意侵犯您的合法权益，联系站长删除处理（QQ:2572127418）