某对分查找算法的VB程序段如下:i=l:j=9:n=0key=Val(Text1,Text)DoWhilei<=jn=n+1m=Fix((i+j)/2)I_刷题宝

题干

某对分查找算法的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．39

B．18 或61

C．18 或72

D．12 或61

上一题下一题 0.99难度选择题更新时间:2019-05-06 09:33:12

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

同类题1

下列Visual Basic表达式中计算结果为4的是（）

B．Len("a123")

D．Int（3.5）

同类题2

下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。

A．A^2="B^2+C^2" or B^2="A^2+C^2" and C^2=A^2+B^2

B．A^2="B^2+C^2" and B^2="A^2+C^2" or C^2=A^2+B^2

C．A^2="B^2+C^2" and B^2="A^2+C^2" and C^2=A^2+B^2

D．A^2="B^2+C^2" or B^2="A^2+C^2" or C^2=A^2+B^2

同类题3

在VisuA.l B.A.siC.中，下列能作为变量名的是（）
A.5A. B.A.5 C.if D.D.im

同类题4

VB过程中的形式参数必须是（）

D．常量、变量、表达式都可以

同类题5

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()

x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

相关知识点