小張同學方便大家進行選考科目的選擇，將全班同學七門學科的原始成績折算成對應的標準分（避免了不同學科試卷難度各不相同的問題，標準分越高說明該學科成績越優秀），存放于7xuan3．accdb數據庫的“bzf”表中，部分界面截圖如圖1所示．并且編寫了“選考科目推薦”程序，實現如下功能：在文本框Text1中輸入學生的學號，單擊“分析”按鈕Command1，在文本框Text2中顯示該學號及所推薦的三門學科．程序運行界面如圖2所示．
Private Sub Command1_Click（　　）
        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．accdb“
        conn.Open
        rs.ActiveConnection=conn
        n=Val （Text1．Text）
        rs.Open“select*from bzf where 學號=“& 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=“物理化學生物政治歷史地理技術“
        c=Text1．Text+““
        For i=1 To 3
              c=c+

②

②

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

3 政治 物理 生物

3 政治 物理 生物

；
（2）畫線①處應填的代碼為

rs.Fields（i-1）

rs.Fields（i-1）

；
（3）畫線②處應填的代碼為

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

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

．