某校開展“七選三”選課調(diào)查，選課數(shù)據(jù)存數(shù)據(jù)庫文件“student.jye.ai”中，如圖a所示．“選課”字段存儲7位“0”、“1”組成的數(shù)串，每位對應(yīng)一個科目，從左往右依次為“物化生政史地技”，“1”表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設(shè)計了一個VB程序統(tǒng)計全校選課情況，功能如下：程序啟動時從數(shù)據(jù)庫中讀入全校學(xué)生的學(xué)籍輔號、姓名、班級、選課信息，處理后在列表框List1中顯示，單擊“選課統(tǒng)計”按鈕Command1，在列表框List2中按選課人數(shù)從高到低輸出各選課組合及人數(shù)，程序界面如圖b所示（學(xué)籍輔號和姓名的部分內(nèi)容不顯示）．

實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是

物化技

物化技

．
（2）請在橫線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技“
Dim n As Integer'存放學(xué)生人數(shù)
Dim xjfh（1 To max）As String,xm（1 To max）As String
'數(shù)組xjfh存放學(xué)生學(xué)籍輔號，數(shù)組xm存放學(xué)生姓名
Dim bj（1 To max）As Integer,xk（1 To max）As String
'數(shù)組bj存放學(xué)生班級，數(shù)組xk存儲學(xué)生的選課標(biāo)志
Dim zh（1 To 35）As String,tj（1 To 35）As Integer
'數(shù)組zh存儲不同選課組合，數(shù)組tj存儲某一組合選課的學(xué)生數(shù)
Function adj（a As String,n As Integer）As String
'函數(shù)功能：在被顯示數(shù)據(jù)之后添加上合適的空格，代碼略
End Function
Function convert（x As String）As String
Dim i As Integer,st As String
st=““
For i=1 To Len（x）
    If Mid（x,i,1）=“1“Then st=st+Mid（s,i,1）
Next i
convert=st
End Function
Private Sub Form_Load（　　）
    Dim i As Integer,km 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+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu_info“
n=0
Do While Not rs.EOF
    n=n+1
    xjfh（n）=rs.Fields（0）：xm（n）=rs.Fields（1）
    bj（n）=rs.Fields（2）：xk（n）=rs.Fields（3）

①

①

    List1．AddItem xjfh（n）+adj（xm（n），4）+adj（Str（bj（n）），4）+adj（km,6）
    rs.MoveNext
Loop
'剩余部分代碼略
功能：產(chǎn)生35種選課組合的“0”、“1”數(shù)串，存數(shù)組zh；數(shù)組tj各元素初始化為0
End Sub
Private Sub Command1_Click（　?。?br />   Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
   For i=1 To 35
       For j=1 To n
       If xk（j）=zh（i） Then

②

②

       Next j
   Next i
   For i=1 To 34
       For j=35 To i+1 Step-1
           If

③

③

 Then
               temp1=zh（j）：zh（j）=zh（j-1）：zh（j-1）=temp1
               temp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=temp2
           End If
          Next j
       Next i
   For i=1 To 35
        List2．Str（i）+adj（convert（zh（i）），6）+adj（Str（tj（1）），6）
   Next i
End Sub.