小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb,其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符．

VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”．程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中．然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中．

程序代码部分如下，请回答后面的问题：
Dim a As String
Dim b  As String
Dim length As Integer
Private Sub Command1_Click （　　）
List1．Clear
Dim i As Integer
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=”& App.Path &
“\

①

①

”
conn.Open
rs.ActiveConnection=conn
rs.CursorLocation=adUseClient
rs.Open （“select*from code”）
length=rs.RecordCount
ReDim a（1To length）
ReDim b（1To length）
rs.MoveFirst
For i=1To length
a（i）=rs.Fields（“ask”）
b（i）=rs.Fields（“ans”）
List1．AddItem （a（i）&“+”&b（i））
rs.

②

②

Next i
End Sub
Private Sub Command2_Click （　　）
Text2．Text=“”
Dim s As String
Dim i As Integer
s=Text1．Text
For i=1To Len（s）
Text2．Text=Text2．Text&translate（Mid（s,

③

③

）
Next i
End Sub

Function translate（ask As String） As String
Dim i as Integer
Dim flag as Boolean
i=1
flag=True
Do While i＜=length And flag
If a（i）=ask Then

④

④

End If
i=i+1
Loop
If flag=True Then
translate=“”
Else
translate=b（i-1）
End If
End Function
（1）程序代码①处应该填入

data.jye.ai

data.jye.ai

．
（2）程序代码②处应该填入

MoveNext

MoveNext

．
（3）在程序代码③处补全Mid函数：

i,1

i,1

．
（4）程序代码④处应该填入

flag=False

flag=False

．
（5）translate函数使用的查找算法是

顺序查找

顺序查找

（填对分查找/顺序查找）．