某校开展“七选三”选课调查，选课数据存数据库文件“student.jye.ai”中，如图a所示．“选课”字段存储7位“0”、“1”组成的数串，每位对应一个科目，从左往右依次为“物化生政史地技”，“1”表示选择，“0”表示未选择，如“1110000”表示选择科目“物化生”．小吴设计了一个VB程序统计全校选课情况，功能如下：程序启动时从数据库中读入全校学生的学籍辅号、姓名、班级、选课信息，处理后在列表框List1中显示，单击“选课统计”按钮Command1，在列表框List2中按选课人数从高到低输出各选课组合及人数，程序界面如图b所示（学籍辅号和姓名的部分内容不显示）．

实现上述功能的VB程序如下，请回答下列问题：
（1）若某记录“选课”字段值为“1100001”，则该生的选课科目是

物化技

物化技

．
（2）请在横线处填上合适的代码．
Const max=1000
Const s=“物化生政史地技“
Dim n As Integer'存放学生人数
Dim xjfh（1 To max）As String,xm（1 To max）As String
'数组xjfh存放学生学籍辅号，数组xm存放学生姓名
Dim bj（1 To max）As Integer,xk（1 To 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.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”数串，存数组zh；数组tj各元素初始化为0
End Sub
Private Sub Command1_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（1）），6）
   Next i
End Sub.