IPv6 是英文“Internet Protocol Version 6”（互联网协议第 6 版）的缩写。IPv6 地址总共有 128 位，为了便于人工阅读和输入，IPv6 地址使用 16 进制数表示，划分成 8 个块，每块 4 位，块与块之间用“:”隔开，如：ABCD:EF01:0000:0000:ABCD:EF01:0000:6789
同时，对于多个地址块为 0 的情况时，可以使用”::”号，进行化简。
化简原则：
①全 0 块“0000”，可以化简为“0”
②连续多个全 0 块，可以化简为“::”
③一个 IPv6 地址中只能出现一个“::”，出现多个全 0 块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”
④“::”可以出现在地址开头或结尾具体示例如下：
程序界面如图所示：

实现上述功能的 VB 程序如下，请回答下列问题：
（1）请在划线处填入合适的代码。
Private Sub Text1_Change()
Dim a(1 To 8) As String, ipstr As String, ips As String
Dim lenth As Integer, max_lenth As Integer, start As Integer ipstr = Text1.Text
For i = 1 To 8
a(i) =_________'将 IPv6 分段存入数组 a Next i
'对数组进行处理，如果字母或非零数字开头，则不用处理；如果全是数字0，则压缩成    0，如果前导为 0，则去掉，处理完毕存回数组。
'///------ 处理过程略----- /////
'如果只有一串0,则将该串“0”用“::”代替,如果不止一串0,则将最长的一串“0”简化为“::”，如果有连续  0，则将左边的一串零简化，右侧保留。
max_lenth = 0
For i = 1 To 7
If_________Then lenth = lenth + 1
Else
If   lenth > max_lenth    Then
max_lenth = lenth: start = i - lenth: lenth = 0 End If
End If Next i
If lenth > max_lenth Then   max_lenth = lenth: start = i - lenth 　'根据连续 0 串的位置确定输出简化后的结果
ips = ""
If    start = 1 And max_lenth    =   7 Then '开头是 0 且全 0 ips = "::"
ElseIf   start = 1 Then    '开头是 0 但不全为 0 ips = "::"
For   i = start + max_lenth + 1   To   7 ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
ElseIf   start > 1 And    start + max_lenth = 8   Then   '开头不是 0 但 0 到最后 For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
ElseIf start > 1 Then '开头不是 0 且 0 不到最后 For i = 1 To start - 1
ips = ips + a(i) + ":"
Next i
ips = ips + ":"
For i =_________To 7  ips = ips + a(i) + ":"
Next i
ips = ips + a(i)
Else '无连续 0 出现
For i = 1 To 7
ips = ips + a(i) + ":"
Next i
ips = ips + a(i) End If
Text2.Text = ips End Sub
（2）IPv6  地址：3BCD:0000:0000:ABCD:0000:0000:0000:6789，则化简后为_______。

   （加试题）某校秋季运动会共n名运动员参赛，高老师编写了一个运动会号码牌查询软件，输入号码牌就能查询该号码牌所属的班级和运动员姓名。数组hm、bj、xm分别保存了本次运动会所有运动员的号码牌、所在班级和姓名的信息。第i个选手的号码牌保存在a(i)中，对应的班级和姓名保存在bj(i)和xm (i)中。

运动会号码牌查询程序界面如第16题图所示，在文本框Text1中输入号码牌，单击“查询”按钮（Command1），电脑就开始查找该号码牌的信息，如果找到对应的信息，就显示该运动员所属班级和姓名，如果没有找到，则显示“没有该号码牌的信息”。

相应程序如下，在程序①和②划线处填入适当的语句和代码，把程序补充完整。
（1）学生运动会数据存入的数据库文件是_________________；
（2）在程序画线①处应填入________________________；
（3）在程序画线②处应填入________________________。
Dim n As Integer  ‘运动员人数
Dim hm(1000) As Integer, bj(1000) As String, xm(1000) As String
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;DATA Source=" & App.Path & "\games.accdb"
conn.Open
strSQL = "SELECT * FROM Student"
Set rs.ActiveConnection = conn
rs.Open strSQL
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
hm(n) = rs.Fields("号码")
bj(n) = rs.Fields("班级")
xm(n) = rs.Fields("姓名")
rs.MoveNext     '移动到下一条记录
Loop
‘用冒泡排序法按a数组（号码牌）升序排列，显示在列表框List1中，代码略。
End Sub
Private Sub Command1_Click()   
Dim w As Integer
w = Val(Text1.Text)
pos = ①
If pos > 0 Then
Text2.Text = bj(pos)
Text3.Text = xm(pos)
Else
Text2.Text = "找不到"
End If
End Sub
Function Search(Key As Integer) As Integer
Dim i As Integer, j As Integer,
i = 1
j = n
Do While i <= j
found = Fix((i + j) / 2)
If Key = a(found) Then
Search = found
Exit Function
ElseIf ②     Then
j = found - 1
Else
i = found + 1
End If
Loop
Search = 0
End Function

二分查找又称折半查找，是一种应用于有序数列的高效查找算法。下列数列中适合二分查找算法的是（   ）
（1）11  99  5  17  2  39
（2）30  52  63  71  78  81
（3）67  62   68  6  15  15
（4）85  78  59  53  19  18

A．（3）（4）

B．（2）（3）

C．（1）（2）

D．（2）（4）

某对分查找算法的 VB 程序段如下：
i= 1 : j= 8 : t= 0 key=Int(Rnd()*7)+14
Do While i<=j
m=Int((i+j)/2)
t=t+1
if a(m)=key Then Exit Do
else
If a(m)>key Then  j=m-1
Else 

i=m+1 End if

End if
Loop
数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量 t 的最大值可能是（）

A．1

B．2

C．3

D．4

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

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

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

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

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