小張同學為方便大家進行選考科目的選擇，將全班同學七門學科的原始成績折算成對應的標準分（避免了不同學科試卷難度各不相同的問題，標準分越高說明該學科成績越優(yōu)秀），存放于數(shù)據(jù)庫中，如圖1所示。同時，還編寫了“選考科目推薦”程序，實現(xiàn)如下功能：在文本框Text1中輸入學生的學號，單擊“分析”按鈕Command1，在文本框Text2中顯示該學號及所推薦的三門學科（選成績最好的三門）。程序運行界面如圖2所示：

實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）通過分析代碼可知，該數(shù)據(jù)庫的名稱為

7xuan3．a(chǎn)ccdb

7xuan3．a(chǎn)ccdb

，數(shù)據(jù)表的名稱為

bzf

bzf

。
（2）請在橫線處填入合適代碼。
Private Sub Command1_Click （　?。?br />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．a(chǎn)ccdb“
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