【加試題】小金想模擬實(shí)現(xiàn)郵箱注冊及保存過程，他用VB設(shè)計(jì)了一個模擬程序．功能如下：運(yùn)行程序時，在文本框Text1中輸入待注冊的郵件地址（假設(shè)輸入的地址合理），在文本框Text2和Text3中分別輸入兩次密碼，單擊“立即注冊”按鈕Command1，查找郵件數(shù)據(jù)庫，如郵件地址未在數(shù)據(jù)庫中并且前后兩次密碼一致，則把郵件地址和密碼加入到數(shù)據(jù)庫中，并顯示在列表框List1中，其應(yīng)用程序界面如圖所示．

數(shù)據(jù)信息存放在數(shù)據(jù)庫文件“youxiang.jye.ai”的“use”表中，假定郵箱數(shù)不超過100個．請?jiān)跈M線處填上合適的代碼．
代碼如下：
Dim yxdz（1To 100）As String'定義存儲郵箱地址的數(shù)組
Dim yxmm（1To 100）As string'定義存儲郵箱密碼的數(shù)組
Dim n As Integer'定義存儲郵箱總數(shù)的變量
Private Sub Command1_Click（　?。?br />Dim key As String
key=（Text1．Text）
If Text2．Text=Text3．Text Then
For i=1To n
If

①

①

Then
MsgBox（“郵件地址有重名，請檢查！”）
'在消息框中顯示郵件地址有重名
Exit For

②

②

Next i
Else
MsgBox（“密碼前后不一致，請檢查！”）
'在消息框中顯示密碼前后不一致
End If
'把郵件信息添加到數(shù)據(jù)庫youxiang.jye.ai中的程序代碼略
End Sub
Private Sub Form_Load（　?。?br />Dim conn As New ADODB．Connection
'定義Connection對象實(shí)例conn
Dim rs As New ADODB．Recordset
'定義Recordset對象實(shí)例rs
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；
date source=”& App.Path&“\youxiang.jye.ai”
'設(shè)置conn的數(shù)據(jù)庫連接字符串
conn.Open
'打開數(shù)據(jù)庫連接
rs.ActiveConnection=conn
'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
rs.Open“SELECT*FROM

③

③

”
'打開記錄集，獲取數(shù)據(jù)
n=0
List1．AddItem“郵箱地址”&“”&“郵箱密碼”
Do While Not rs.EOF
n=n+1
yxdz（n）=rs.Fields（1）
'郵箱地址字段的序號為1
yxmm（n）=rs.Fields（2）
'郵箱密碼字段的序號為2
List1．AddItem yxdz（n）&“”&yxmm（n）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
程序中①橫線處應(yīng)填入

key=yxdz（i）

key=yxdz（i）

．
程序中②橫線處應(yīng)填入

End If

End If

．程序中③處應(yīng)填入

use

use

．