数据信息存放在数据库文件“youxiang.accdb”的“use”表中，假定邮箱数不超过100个。请在划线处填上合适的代码。
代码如下：
Dim yxdz(1 To 100)As String '定义存储邮箱地址的数组 Dim yxmm(1 To 100)As string '定义存储邮箱密码的数组 Dim n As Integer '定义存储邮箱总数的变量 Private Sub Command1_Click() Dim key As String key＝(Text1.Text)
If Text2.Text＝Text3.Text Then For i＝1 To n If____①____Then MsgBox(“邮件地址有重名，请检查！”) '在消息框中显示邮件地址有重名 Exit For ____②____ Next i Else
MsgBox(“密码前后不一致，请检查！”) '在消息框中显示密码前后不一致 End If
'把邮件信息添加到数据库youxiang.accdb中的程序代码略 End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection '定义Connection对象实例conn Dim rs As New ADODB.Recordset '定义Recordset对象实例rs
conn.ConnectionString＝“provider＝Microsoft.ACE.OLEDB.12.0； date source＝”& App.Path&“\\youxiang.accdb” '设置conn的数据库连接字符串
16/18
conn.Open '打开数据库连接
rs.ActiveConnection＝conn
'设置rs的ActiveConnection属性，关联conn rs.Open“SELECT*FROM____③____” '打开记录集，获取数据 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
程序中①划线处应填入___________________________________________。 程序中②划线处应填入___________________________________________。程序中③划线处应填入___________________________________________。 【解析】 本题考查的是VB程序设计中数据库、数组、IF语句等的综合应用。
①本题要求掌握Do语句。通过观察发现题目中要求搜索邮件数据库中的邮箱，如邮件地址未在数据库中才能继续，所以是将输入的邮箱关键词key和已有邮箱yxdz数组的数据进行比较，故该处的正确语句是key＝yxdz(i)或yxdz(i)＝key。
②本题要求掌握的是IF语句的使用。IF语句分为行语句和块语句，其中块语句必须以End If结尾。具体格式如下：
17/18
行If语句：If 条件表达式 Then 语句1 Else 语句2 或 If 条件表达式 Then 语句 块If语句：
If 条件表达式1 Then 语句块1
ElseIf 条件表达式2 Then 语句块2 ??
ElseIf 条件表达式n Then 语句块n Else
语句块0 End If
③通过阅读程序和说明不难发现rs.Open“SELECT*FROM____”用于打开记录集，获取数据，所以该处的代码是链接Access数据库中的数据表，所以正确答案为use(数据表)。
【答案】 ①key＝yxdz(i) ②End If ③use
18/18