有如下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(1)到a(10)的值依次为“66，34，12，59，21，26，18，45，20，16”，经过该程序段“加工”后，数组元素a(1)到a(10)的值依次为（   ）

A．66，12，16，34，18，59，21，26，20，45

B．12，16，18，20，21，26，34，45，59，66

C．66，59，45，34，12，26，21，20，18，16

D．12，16，18，66，34，20，59，21，26，45

已知有一组数据2, 3, 6, 9, 10, 17, 22, 25排列，若要对分查找数值22，需要查找3次，这3次查找中依次找到的数据是（    ）。

A．10 17 22

B．9 10 22

C．10 25 22

D．9 17 22

数组a中有20个正整数，以降序排序。在文本框Text1中输入一个正整数data，寻找数组中是否存在两个元素之差等于给定的数据。若是则输出这两个数（有多对数满足条件，只输出最先找到的数对）。否则输出“not find”。实现此问题的算法程序如下，加框处代码有误，请改正。
①________________________
②________________________
③________________________
Private Sub Command1_Click()
Const n = 20
Dim a(20) As Integer
Dim data As Integer, left As Integer, right As Integer, m As Integer
Dim f As Boolean
f = True
data = Val(Text1.Text)
' 随机产生符合题意的数组a中各元素并按降序排序
For i = 1 To n - 1

①

right = n

Do While ②

m = (left + right) \ 2
If a(i) - a(m) > data Then
right = m - 1
ElseIf a(i) - a(m) < data Then
left = m + 1
Else
Text2.Text = a(i) & a(m)
③
End If
Loop
Next i
If f=True Then Text2.Text = "not find"
End Sub

某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数，kcq:可抽取
'xhxm:学号姓名，kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click()  '初始化数组kcq，使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x)   '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer()  '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub