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

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

7xuan3．a(chǎn)ccdb

7xuan3．a(chǎn)ccdb

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

bzf

bzf

。
（2）請(qǐng)?jiān)跈M線處填入合適代碼。
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學(xué)號(hào)=“& 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=“物理化學(xué)生物政治歷史地理技術(shù)“
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