【加试题】某校开展“七选三”选课调查，选课数据存数据库文件“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.