题库 高中信息

题干

某对分查找算法的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
上一题 下一题 0.99难度 选择题 更新时间:2019-05-24 06:10:46

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

同类题3

“旋转数组”过程是指将数组中的元素向右移动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