（加试题）某对分查找算法的VB程序段如下：key=Val(Text1.Text)i="1:"j=10Text2.Text=""DoWhilei<=jm="_刷题宝

题干

（加试题）某对分查找算法的VB程序段如下：
key = Val(Text1.Text)
i =" 1:" j = 10
Text2.Text = ""
Do While i <= j
m =" Int((i" + j) / 2 + 0.5)
If key =" a(m)" Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then j =" m" - 1 Else i =" m" + 1
Text2.Text =" Text2.Text" + Str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“8,17,24,30,36,40,55,58,61,66”，文本框Text1中输入的值是30，执行该程序段，文本框Text2中显示的是

A．40 24

B．40 24 36

C．36 24

D．36 17 24

上一题下一题 0.99难度选择题更新时间:2019-02-27 04:11:19

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

同类题1

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示 ① ，Text2显示 ② 。

同类题2

Visual Basic 6.0中编程时，当双击窗体上的某个控件时，所打开的窗口是( )

A．工程资源管理器窗口

B．代码窗口

C．工具箱窗口

D．属性窗口

同类题3

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

同类题4

某VB程序在调试中弹出如图所示的错误窗口，此时程序正执行的语句是（）

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

A．For i =" 1" To 5	B．a (i) =" i" * i
C．Next I	D．List1.AddItem Str (a (i))

同类题5

下列程序执行后，整型变量n的值为（）。
n=0
for i="1" to 100
if i mod 4="0" then
n=n+1
next i

相关知识点