【加試題】某單位招聘事業單位工作人員，2015年和2016年各有4000名和2600名考生報名，下列VB程序統計兩次考試都參加的考生信息．程序界面如圖所示，2015年和2016年的考生信息分別顯示在List1和List2中，點擊“統計”按鈕，在List3中顯示兩次都參加的考生信息和總人數．

（1）實現上述功能的VB程序如下，請在橫線處填入合適的代碼．
Dim a（1 To 4000）As String
Dim b（1 To 2600）As String
Private Sub Form_Load（　　）
Dim conn As New ADODB．connection
Dim rs As New ADODB．Recordset
Dim constr As String
constr=“Provider=Microsoft.ace.OLEDB.12.0；“
constr=constr &“Data Source=“& App.Path+“\data\kaosheng.jye.ai“
conn.ConnectionString=constr
conn.open（　　）
Dim sql As String
Rem將參加2015年考試的考生身份證號碼按升序存放在a數組中
sql=“select*from kaoshenginfo where year='2015'order by sfzh asc“
rs.jye.ai sql,conn
i=0
Do While Not rs.EOF
        i=i+1
        a（i）=rs（“sfzh“）
        List1．AddItem （a（i））
        rs.MoveNext
Loop
Rem將參加2016年考試的考生身份證號碼按升序存放在b數組中
sql=“select*from kaoshenginfo where year='2016'order by sfzh asc“
rs.jye.ai sql,conn
i=0
Do While Not rs.EOF
        i=i+1
        b（i）=rs（“sfzh“）
        List2．AddItem （b（i））
        rs.MoveNext
Loop
End Sub
Private Sub Command1_Click（　　）
Dim bot As Integer,top As Integer,m As Integer
Dim i As Integer,ans As Integer'ans用于記錄兩次均參加考試的考生數
ans=0
For i=1 To 2600
       bot=1
       top=4000
       Do While bot＜=top
               m=Fix（（bot+top）/2）
               If a（m）=b（i） Then
                      List3．AddItem a（m）

ans=ans+1

ans=ans+1

                      Exit Do
               ElseIf

a（m）＞b（i）

a（m）＞b（i）

 Then
                       top=m-1
               Else

bot=m+1

bot=m+1

               End If
       Loop
Next i
List3．AddItem“總計“+Str（ans）+“人次“
End Sub
（2）分析上述代碼，在數據庫中用于存放考生身份證號碼的字段名稱是

sfzh

sfzh

．