某查找算法的VB 程序如下：
Private Sub Commandl_Click()

Dim a(1 To 9) As Integer, key As Integer, i As Integer，j As Integer

Dim mid 1 As Integer，mid 2 As Integer

a(1)=4:a(2)=22:a(3)=27:a(4)=32:a(5)=35:a(6)=44:a(7)=56:a(8)=59:a(9)=78

key=Val(Textl.Text)

i=1:j=9

flag=False

Do While i<=j And Not flag

midl=i+(j-i)\3
mid 2=j-(j-i)\3
If key=a(midl) Then
flag=True
ElseIf key<a(midl) Then
j=midl-l
ElseIf key=a(mid 2) Then
flag=True
ElseIf key>a(mid2) Then
i=mid2+1
Else
i=mid1+1
j=mid2-1
End If

Loop

If flag Then Labell.Caption=″查找成功！″Else Labell.Caption=″查找失败！″

End Sub
该程序段执行时，在文本框Text1中输入36，单击命令按钮Command1，程序运行结束后，i和j的值为（   ）

A．4，5

B．6，5

C．5，6

D．6，4

（加试题）给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次分隔成m+1个段。具体分割方法如下：

第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间，则第1段元素个数为0；

第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；

第m段分割后的剩余元素分割到第m+1段（剩余段）。

若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组第1个元素10不属于第1区间0,5，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。

 
（1）给定2个区间依次为10,50、30,80，数组各元素为“12,44,34,45,66,50,45,70”，则第1段“重叠块”中的元素个数为_________个。
（2）小李根据上述描述，设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。算
法的VB程序如下，请在划线处填入合适的代码。
Const n = 18, m = 6
Dim a(1 To n) As Integer
Dim b(1 To 2 * m) As Integer
'b(1)、b(2)为第1区间的下限和上限， b(3)、b(4)为第2区间的下限和上限，… 
Dim c(1 To 2 * m + 1) As Integer
'数组c用于保存统计结果：
'c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数，
'c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数，… 
'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储第m段"重叠块"元素个数(值为0)
'c(2m+1)存储剩余段元素个数
Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL As Integer
'读取n个数据并保存在数组a中，代码略
'读取m个区间的下限和上限并保存在数组b中，代码略
For i = 1 To 2 * m + 1
c(i) = 0
Next i
i = 1: p = 1
L = 0: LL = 0
Do While  _________________  
If IsIn(i, p) Then
If IsIn(i, p + 1) Then
LL = LL + 1
Else
______________ 
LL = 0
End If
i = i + 1
Else
c(2 * p - 1) = L
c(2 * p) = LL
L = 0: LL = 0
p = p + 1
End If
Loop
If i <= n Then
c(2 * p - 1) = n - i + 1
Else

  c(2 * p - 1) = L

  c(2 * p) = LL

End If
'输出统计结果，代码略
End Sub
'函数IsIn用来判断a(i)值是否属于第p区间
Function IsIn(i As Integer, p As Integer) As Boolean
If p > m Then
IsIn = False
Else
If ____________________________  Then IsIn = True Else IsIn = False
End If
End Function

设某汉字由７×７的０、１点阵图案组成。依照以下规则生成压缩码：连续一组数值，从汉字点阵图案的第一行第一个符号开始计算，按书写顺序由左到右，从上到下。压缩码第一个数表示起始的数字（例如０），第二个数表示连续有几个０，第三个数表示接下来连续有几个１，第四个数表示接下来连续有几个０，第五个数表示接下来连续有几个１，以此类推……

例如，以下汉字点阵图案：
０００１０００
０００１０００
０００１１１１
０００１０００
０００１０００
０００１０００
１１１１１１１
对应的压缩码是０３１６１６４３１６１６１３７（第一个数是ｃ（０或者１），表示一开始时的数字为０或１）。
(1)请将程序代码补充完整。
Private Sub Command1_Click()
Dim code As String, c As Integer, res As String,k As Integer
code=Text1.Text
k=0
res=""
c=Val(Mid(code,1,1))
For i=2 To Len(code)
For j=1 To _____________   '①
res=res+Str(c)
k=k+1
If k=7 Then
List1.AddItem res
k=0
res=""
End If
Next j
_______________   '②
Next i
End Sub
(2)现给出如下点阵图：

则压缩码为_________________________________。

（加试题）编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a存放不同的分值，数组m存储相同分数的人数，数组mc存储不同分数的名次。例如，数据库中有一组成绩（已按降序排列）：98，95，95，92，90，90，87，按该算法，各数组值如下表所示：

i	1	2	3	4	5
a	98	95	92	90	87
m	1	2	1	2	1
mc	1	2	4	5	7

 
程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。

程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. AC

A．OLEDB. 12. 0; data source=〃 & App. Path & 〃\mydb. accdb〃

conn. Open
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0

Do While Not rs. EOF

s = rs. Fields (〃成绩〃)
If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________ 
End If
_____________
rs. MoveNext

Loop

End Sub
Private Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________ 

mid = (i + j) \ 2

If a(mid) < key Then

j = mid – 1

Else

i = mid + 1

End If

Loop
If a(mid) = key Then

Label2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid))

Else

Label2. Caption = 〃查无此分〃

End If
End Sub

数组d中存放了一组数据如表所示，采用对分査找数组元素值86。第一次査找的数组元素是d4，第二组査找的数组元素是( )

d1	d2	d3	d4	d5	d6	d7
65	73	75	82	85	91	95

 

A．d2

B．d3

C．d5

D．d6