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

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

物化技

物化技

．
（2）請在橫線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技“
Dim n As Integer'存放學生人數(shù)
Dim xjfh（1 To max）As String,xm（1 To max）As String
'數(shù)組xjfh存放學生學籍輔號，數(shù)組xm存放學生姓名
Dim bj（1 To max）As Integer,xk（1 To max）As String
'數(shù)組bj存放學生班級，數(shù)組xk存儲學生的選課標志
Dim zh（1 To 35）As String,tj（1 To 35）As Integer
'數(shù)組zh存儲不同選課組合，數(shù)組tj存儲某一組合選課的學生數(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
'剩余部分代碼略
功能：產生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.