有如下程序段：Dima(1To10)AsIntegerDimiAsInteger,jAsInteger,mAsIntegerDimkeyAsIntegeri=1_刷题宝

题干

有如下程序段：
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, m As Integer
Dim key As Integer
i = 1: j = 10: key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If key < a(m) Then
j = m - 1
ElseIf key > a(m) Then
i = m + 1
Else
Do While m > 1
If a(m - 1) = key Then
m = m - 1
Else
Exit Do
End If
Loop
Exit Do
End If
Loop
数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为

A．7

B．6

C．5

D．4

上一题下一题 0.99难度选择题更新时间:2019-04-11 09:39:33

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

同类题1

关于对分查找和顺序查找算法的叙述，正确的是（）。

A．顺序查找需要排序，效率低；对分查找不需要排序，效率高。

B．顺序查找不需要排序，效率低；对分查找需要排序，效率高。

C．顺序查找不需要排序，效率高；对分查找需要排序，效率低。

D．顺序查找需要排序，效率高；对分查找不需要排序，效率低。

同类题2

（加试题）对分查找的VB程序段如下：
key=78
i=1
j=8
k=1
Do While i<=j
m= fix((i+j)/2)
if d(m)=key Then
Label1.Caption=k
Exit do
End if
If d(m)<key Then
i=m+1
else
j=m-1
End If
k=k+1
Loop
数组元素a(1)到a(8)的值依次为“22,34,41,53,66,71，78,91”。若该程序执行后得到的结果是

同类题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编写求句子中最长单词的程序。输入要求:句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。

(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：

(2)根据题意将下列程序补充完整。
Private Sub Tj_Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String '存储句子中最长的单词
s = Text1.Text
i = 1: k = 0: max = 0
ch = ""
Do While ch <> "." Or i <= Len(s)
ch = Mid(s, i, 1)
If ch <> " " And ch <> "." Then
___________
Else
k = 0
End If
If __________ Then
max = k
ss = ____________
End If
i = i + 1
Loop
Text2.Text = ss
Text3.Text = Str(max)
End Sub

同类题5

（加试题）入围“十佳歌手”的10位学生的编号依次为：47，36，35，31，28，23，17，8，3，1，主持人通过对分查找最终确定35号为首位出场学生，则主持人查找过程中依次被访问的编号是（）

A．47，36，35

D．28，36，35

相关知识点