（加试题）小王编写了一个猜价格的VB程序，程序界面如图所示。程序运行时，在列表框List1中显示20个随机生成的在150,250之间的价格及其序号。在文本框Text1中输入报价，单击Command1 “猜测”按钮后，在Label3中输出猜中价格对应的序号。

实现上述功能的VB程序如下，但加框处代码有误，请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20 '生成20个随机价格
d(i)=Int(Rnd*100)+150 ‘（1）________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If  d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If

  Next j

Next i
For i = 1 To 20

List1.AddItem Str(i) + Str(d(i))

Next i
End Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2   ‘（2）________
If  baojia = d(m) Then
Label3.Caption = "猜中  第" + Str(i) + "个"
Exit Do
ElseIf  baojia<d(m) Then
j = m - 1
Else
i=m-1 ‘（3）________
End If
Loop
End Sub

查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）。
编写VB程序，实现上述算法。程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
' maxn个数据存储在数组a中，并在列表框List1中显示
' 代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'n用于存储当前查找的数组长度
Dim j As Integer, key As Integer   'key用于存储本次查找关键字的数据位置
key = 1: n = maxn
Do While key <= n

i = n

Do While  a(i) <> a(1)   '（1）

i = i - 1
Loop
If i = key Then   '找到重复数据，删除；未找到，设定下一查找关键字
key = key + 1
Else
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
End If
Loop
For i = 1 To n
List2.AddItem a(i)
Next i
Label1.Caption = "共删除重复数据：" &  Str(n)  & " 个" '（2）
End Sub

下面是一组有序的数组d，现运用对分查找，dm为每次查找到的中间值，完成查找J的过程中所查找到的dm的值是（    ）

1	2	3	4	5	6	7	8	9	10	11	12	13	14
A	B	C	D	E	F	G	H	I	J	K	L	M	N

 

A．G  K  L J	B．G  C  K  J
C．G  K  I  J	D．G  H  K  J

有如下VB程序段：

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（ ）

A．若在文本框Text1中输入“ZGBG”，Text2中输入“0”，则Text3中显示“ZG，GB，BG”

B．若在文本框Text1中输入“CCAA”，Text2中输入“1”，则程序运行结束时变量c的值为2

C．将数组a的定义语句改为“Dim a(1 To 9) As String”,程序依然能够正确运行

D．若a(1)到a(4)的值为“AB”,“AC” ,“BC” ,“AC”，则调用函数check(4)的结果为False

关于对分查找和顺序查找算法的叙述，正确的是（   ）。

A．顺序查找需要排序，效率低；对分查找不需要排序，效率高。

B．顺序查找不需要排序，效率低；对分查找需要排序，效率高。

C．顺序查找不需要排序，效率高；对分查找需要排序，效率低。

D．顺序查找需要排序，效率高；对分查找不需要排序，效率低。