有如下VB程序段：i=1:j=6:c=0:f=Falsekey=Val(Text1.Text)DoWhilei<=jAndNotfc=c+1m=Int((_刷题宝

题干

有如下VB程序段：
i = 1: j = 6: c = 0: f = False
key = Val(Text1.Text)
Do While i<= j And Not f
c = c + 1
m = Int((i + j) / 2)
If key = a(m) Then f = True
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是

A．变量c的值为3

B．变量i的值为4

C．变量j的值为4

D．变量m的值为4

上一题下一题 0.99难度选择题更新时间:2019-05-30 05:42:42

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

同类题1

有如下Visual Basic程序段：
s=0
n=1
for i="4" to 1 step -1
n=n*i
s=s+a
next i
问：该程序段运行后，
（1）共循环___________次。
（2）变量s的值是___________。

同类题2

数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如下表所示：

1	2	3	4	5	6	……	2n-1	2n
学号	成绩	学号	成绩	学号	成绩	……	学号	成绩
第1个学生信息		第2个学生信息		第3个学生信息		……	第n个学生信息

小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a存储结构如下表所示：

1

2

3

4

5

6

7

8

9

第1个学生信息

第2个学生信息

第3个学生信息

第n个学生信息

小迪同学使用VB编写了成绩处理程序，程序运行界面如下图所示：

实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()

＇读取数据，存储在数组a中，并显示于列表框List1中

＇代码略

End Sub
Private Sub Command2_ Click()

＇①改错
k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
k=j
End if

Next j

A(3*i=a(2*k)
A(3*i-1)=a(2*k-1)
③
A(2*k-1)=a(2*i-1)
Next i
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n

If ④ Then mc=i

List2. AddItem"第"+Str(mc)+"名：学号"+CStr(a(3*i-1))+"，分数"十Str(a(3*i))a(3*i-2)=mc

Next i

End sub
（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。

A．Form_ Click()

B．Form_ Load()

C．Form1_ Click()

D．Forml_ Load()

（2）程序加框处的For循环语句有错，请改正。
（3）请将程序②③④划线处代码补充完整。

同类题3

数组元素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

同类题4

有如下VB程序段:
Dim a(1 To 5) As Integer
Pos=-1
i=1
Do While i<=10
If i Mod 2=0 Then a(i)=i*2 Else a(i)=i
i=i+1
Loop
i=10
Do While i>=1
If a(i)=12 Then Pos=i
i=i-1
Loop
该程序段运行后,变量Pos值是( )

同类题5

有如下VB程序段：
For i=1 To 100

For j=i To 100

If j Mod i=0 Then
a(j)=a(j)+1
End If

Next j

Next i
Text1.Text=Str(a(50))
数组各元素初值为0，执行上述程序段后，文本框Textl中输出

相关知识点