【加試題】某校開展“七選三”選課調查，選課數據存數據庫文件“student.jye.ai”中，如圖a所示．“選課”字段存儲7位“0”、“1”組成的數串，每位對應一個科目，從左往右依次為“物化生政史地技”，“1”
表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設計了一個VB程序統計全校選課情況，功能如下：程序啟動時從數據庫中讀入全校學生的學籍輔號、姓名、班級、選課信息，處理后在列表框List1中顯示，單擊“選課統計”按鈕Commandl,在列表框List2中按選課人數從高到低輸出各選課組及人數．程序界面如圖b所示（學籍輔號和姓名的部分內容不顯示）．
實現上述功能的VB程序如下，請回答下列問題：
（1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是

物化技

物化技

．
（2）請在橫線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技”
Dim n As Integer'存放學生人數
Dim xjfh（1To max）As String,xmm（1To max）As string
'數組bj存放學生班級，數組xk存儲學生的選課標志
Dim zh（1 To 35）As string,tj（1 To 35）As Integer
'數組zh存儲不同選課組合，數組tj存儲某一組合選課的學生數
Function adj（a As String,n As Integer）As string
'函數功能：在被顯示數據之后添加上合適的空格，代碼略
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.Connection String=“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”數串，存數組zh,；數組tj各元素初始化為0．
End Sub
Private Sub Commandl_-Click（　　）
  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（i）），6）
Next i
End Sub.