数组a为一组正整数，奇数在前，偶数在后。奇数与偶数已分别按升序排序。根据对分查找思想，设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下:i=1_刷题宝

题干

数组a为一组正整数，奇数在前，偶数在后。奇数与偶数已分别按升序排序。根据对分查找思想，设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下:
i = 1: j = 10
key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If a(m) = key Then Exit Do ’ Exit Do表示退出循环
If key Mod 2=1 And a(m) Mod 2=0 Then
(1)
ElseIf key Mod 2=0 And a(m) Mod 2=1 Then
(2)
Else
(3)
End If
Loop
If i>j Then s = "没有找到！" Else s="位置："+Str(m)
Text1.Text = s
上述程序中方框处可选语句为：
①i=m+1
②j=m-1
③If key<a(m) Then j=m-1 Else i=m+1
则（1）、（2）、（3）处语句依次是（）

A．①、②、③

B．①、③、②

C．③、②、①

D．②、①、③

上一题下一题 0.99难度选择题更新时间:2019-05-27 12:10:59

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

同类题1

（加试题）有一组数据分别为“8,11,17,25,29,30,31,46”用对分查找和顺序查找数据 31 的过程中，两种方法都能访问到的数字是（）

同类题2

小明利用Visual Basic编写了“查找第二小的数”的程序，界面如图所示。程序随机产生50个范围在1～1000之间的随机整数，单击“查找”按钮，能够在标签Label1中显示第二小的数字。

(1)为了在列表框List1中加入随机产生的数字，小明在程序中写了语句“List1.AddItem Str(a(i))”，其中AddItem 是List1对象的__________(单选，填字母:

C．方法）。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a(1 To 50) As Integer
Randomize
For i = 1 To 50
①___________
List1.AddItem Str(a(i))
Next i
If a(1) < a(2) Then

firstmin = a(1)

secondmin = a(2)

firstmin = a(2)

secondmin = a(1)

End If
For i = 3 To 50
If a(i) < secondmin Then

②___________

secondmin = firstmin
firstmin = a(i)
Else
③____________
End If

End If

Next i
Label1.Caption = "第二小的数是" & Str(secondmin)
End Sub

同类题3

小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串s第23个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如下图所示。

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。

（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：

C．Text1和Text2）

（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是_____________。

同类题4

（加试题）用如下对分查找算法 VB.程序段,对数组 a 中 7 个有序数据“20,30,35,42,46,50,53”进行查找。
i = 1 : j = 7 : x = 45
Do While i <= j
m = (i + j) \ 2
If a(m) = x Then Exit Do ‘Exit Do 退出 Do 循环 If a(m) > x Then
j = m - 1
Else
i = m + 1
End If
Loop
执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是

A．i = j
B. i = m + 1

相关知识点