（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB程序段如下：t(1)=1:t(2)=1Fori_刷题宝

题干

（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB 程序段如下：
t(1) = 1: t(2) = 1
For i = 3 To 5

t(i) = t(i - 1) + t(i -2)

Next i Key =13
i=1:j=8:k=6
Do While i <=j

m = i+t(k-1) ‘①

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

If d(m) > Key Then

j= m - 1
k=k-1

Else

i = m + 1
k=k-2

End If

Loop
运行该程序段后，①处的赋值语句共执行（）

A．1次

B．2次

C．3次

D．4次

上一题下一题 0.99难度选择题更新时间:2019-08-14 10:37:24

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

同类题1

数组a中存放了一批数据如下表，现采用对分查找方式在这批数据中查找“gou”，以下说法正确的是（）。

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)
hou	ji	long	ma	niu	she	tu

A．依次被比较的数据是“ma”，“ji”，“hou”

B．依次被比较的数据是“ma”，“she”，“tu”

C．无法进行对分查找，因为这批数据还没排好序

D．无法进行查找操作，因为这批数据中没有“gou”

同类题2

数组元素a(1)~a(n)升序排列，存储整数且数值的范围为1,n-1（n≥2），其中仅有两个相邻的数组元素的数值发生了重复。小王为找出重复数组元素的前、后位置设计了一个程序，实现该功能的VB程序段如下：
in=1;j=n
Do While（1）
m=(i+j)\2
If a(m)=m Then

（2）

（3）

End If
Loop
Labell.Caption="相邻重复两数的前、后位置余别是："+str(i)+"和"Stri(j)"
上述程序段3个划线处（1），（2），（3）的代码分别为（）

A．（1）i+1<=j （2）i=m （3）j=m

B．（1）i+1<j （2）i=m （3）j=m

C．（1）i+1<j （2）i=m+1 （3）j=m-1

D．（1）i=j （2）i=m+1 （3）j=m-1

同类题3

该流程图描述的是求实数a绝对值的算法。

在流程图的空白处应填入_____________。

同类题4

该程序的界面如右图所示：
如果要把窗口标题处的“Form1”修改
为“计算团购优惠”，应该选择以下哪个语句？（）

A．form1.text=”计算团购优惠”	B．form1.caption=”计算团购优惠”
C．form1.font=”计算团购优惠”	D．form1.coption=”计算团购优惠”

同类题5

有如下VB程序段：
Dim a(1 To 10) As Integer
Dim i As Integer，j As Integer，key As Single
i=1：j=10：n=0
key=Int (Rnd * 100)
Do While i<=j

m=(i+j)\2

If key <a(m) Then

Else

End If

Loop
Text1.Text=Str(n)
已知数组元素a(1)至a(10)的值依次为91，82，73，64，55，46，37，28，19，5，若执行该程序，文本框Text1中显示的内容不可能是

相关知识点