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

物化技

物化技

．
（2）請(qǐng)?jiān)跈M線處填上合適的代碼．
Const max=1000
Const s=“物化生政史地技”
Dim n As Integer'存放學(xué)生人數(shù)
Dim xjfh（1To max）As String,xmm（1To max）As string
'數(shù)組bj存放學(xué)生班級(jí)，數(shù)組xk存儲(chǔ)學(xué)生的選課標(biāo)志
Dim zh（1 To 35）As string,tj（1 To 35）As Integer
'數(shù)組zh存儲(chǔ)不同選課組合，數(shù)組tj存儲(chǔ)某一組合選課的學(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（　?。?br />    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
'剩余部分代碼略
功能：產(chǎn)生35種選課組合的“0”“1”數(shù)串，存數(shù)組zh,；數(shù)組tj各元素初始化為0．
End Sub
Private Sub Commandl_-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（i）），6）
Next i
End Sub.