小林和小王合作编写了一个查询英语单词的VB程序：小林编写一个过程，单击“读取数据库”按钮Command1，从一个数据库中读取英文单词和中文含义，分别保存在a数组和b数组中，并显示在List1中；小王编写另一个过程，在文本框Text1中输入要查询的单词，单击“查询”按钮Command2，将查询单词的中文含义显示在Text2中，程序界面如图所示。

Constn=3500′存储单词的总数
Dim a（1 To n）As String′依次存储每个英语单词
Dim b（1 To n）As String′依次存储每个英语单词的中文含义
Private Sub Command1_Click （　　）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim strSQL As String
conn.Connectionstring=″Provider-Microsoft.ACE．OLEDB.12.0；Data source=″&App.Path&
″\dictionary l.jye.ai″
strSQL=″select*from list″
conn.Open
Set rs.ActiveConnection=conn
rs.Open strSQL
num=0
Do While Not rs.EOF
num=num+1
a（num）=rs.Fields（″英语单词″）
b（num）=rs.Fields（″中文含义″）
①

rs.MoveNext

rs.MoveNext

Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
Fori=1Ton
Listl.Addltem a（i）+““+b（i）
Nexti
End Sub
Private Sub Command2_Click （　　）
Dims As String,t as integer
s=Text1．Text
t=search（s）
If t=-1 Then
Text2．text=″找不到该单词″
Else
Text2．text=②

b（search（s））

b（search（s））

End If
End Sub
Function search（key As String）As Integer
Dim i,jAs Integer
Dim mid1，mid2As Integer
i=1：j=n
search=-1
Do Whilei＜=j
mid1=Int（i+j-i）/3）
mid2=Int（j（j-i）/3）
If key=a（mid1）Then
search=mid1
Exit Do
Elself key＜a（midl）Then
j=midl-1
Elself key=a（mid2）Then
search=mid2
Exit Do
Elself key＞a（mid2）Then
Else
i=mid1+1
③

j=mid2-1

j=mid2-1

End If
Loop
End Function
（1）分析程序，“英语单词”和“中文含义”被保存在

list

list

数据表中。
（2）按此要求编写的程序如下，请在横线处填入合适的代码。
第①处代码为

rs.MoveNext

rs.MoveNext

第②处代码为

b（search（s））

b（search（s））

第③处代码为

j=mid2-1

j=mid2-1