小張同學(xué)方便大家進(jìn)行選考科目的選擇，將全班同學(xué)七門學(xué)科的原始成績折算成對(duì)應(yīng)的標(biāo)準(zhǔn)分（避免了不同學(xué)科試卷難度各不相同的問題，標(biāo)準(zhǔn)分越高說明該學(xué)科成績?cè)絻?yōu)秀），存放于7xuan3．a(chǎn)ccdb數(shù)據(jù)庫的“bzf”表中，部分界面截圖如圖1所示．并且編寫了“選考科目推薦”程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入學(xué)生的學(xué)號(hào)，單擊“分析”按鈕Command1，在文本框Text2中顯示該學(xué)號(hào)及所推薦的三門學(xué)科．程序運(yùn)行界面如圖2所示．
Private Sub Command1_Click（　?。?br />        Dim a （1 To 7）As Single
        Dim b （1 To 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=1 To 7
              a（i）=

①

①

              b（i）=i
        Next i
        rs.Close
        conn.Close
        For i=1 To 3
              k=i
              For j=i+1 To 7
                    If 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=1 To 3
              c=c+

②

②

+““
        Next i
        Text2．Text=c
End Sub
（1）若在文本框Text1中輸入3，單擊“分析”按鈕Command1后，則文本框Text2中顯示的內(nèi)容為

3 政治 物理 生物

3 政治 物理 生物

；
（2）畫線①處應(yīng)填的代碼為

rs.Fields（i-1）

rs.Fields（i-1）

；
（3）畫線②處應(yīng)填的代碼為

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

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

．