小张同学为方便大家进行选考科目的选择，将全班同学七门学科的原始成绩折算成对应的标准分（避免了不同学科试卷难度各不相同的问题，标准分越高说明该学科成绩越优秀），存放于数据库中，如图1所示。同时，还编写了“选考科目推荐”程序，实现如下功能：在文本框Text1中输入学生的学号，单击“分析”按钮Command1，在文本框Text2中显示该学号及所推荐的三门学科（选成绩最好的三门）。程序运行界面如图2所示：

实现上述功能的VB程序如下，请回答下列问题：
（1）通过分析代码可知，该数据库的名称为

7xuan3．accdb

7xuan3．accdb

，数据表的名称为

bzf

bzf

。
（2）请在横线处填入合适代码。
Private Sub Command1_Click （　　）
Dim a（1To 7）As Single,b（1To 7）As Integer
Dim n As Integer,s As String,c As String
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 &“\7xuan3．accdb“
conn.Open
rs.ActiveConnection=conn
n=Val（Text1．Text）
rs.Open“select*from bzf where学号=“& n
For i=1To 7
a（i）=rs.jye.ai（i）
b（i）=i
Next i
rs.Close
conn.Close
For i=1To 3
k=i
For j=i+1To 7
If ①

a（j）＞a（k）

a（j）＞a（k）

Then k=j
Next j
If k＜＞i Then
t=a（i）：a（i）=a（k）：a（k）=t
t=b（i）：b（i）=b（k）：b（k）=t
End If
Next i
s=“物理化学生物政治历史地理技术“
c=Text1．Text+““
For i=1To 3
c=c+②

Mid（s,b（i）*2-1，2）

Mid（s,b（i）*2-1，2）

+““
Next i
Text2．Text=c
End Sub