学进去

高一年级开展“7选3”选科调查，现要求每位学生在预选卡上填写个人信息（班级、学号、姓名）并选涂三门选考科目（少于或多于三门的预选卡作废）。如小王预选组合是“物生技”其三门选考科目填涂情况如图a所示。预选卡回收后，通过读卡机将相关信息读入数据库中，其中选科信息存储规则：按照“政治、历史、地理、物理、化学、生物、技术”顺序存储为一个7位二进制字符串。因此小王的选科信息二进制编号存储为“0001011”。

为了了解选科预选情况，统计选科组合种类及每种组合人数。小王设计并制作了VB程序。运行该程序，单击“读取”按钮，从数据库中读取信息并显示在列表框List1中；单击“统计”按钮，在列表框List2中显示每种选科组合人数（无人选择的组合不显示）及选科组合种类。程序运行界面如图b所示。
（1）若某个学生“7选3”的预选选科组合为“政史生”，则该选科组合对应的十进制编号为_______。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim cla（1 To 1000）As Integer   ’班级号
Dim snum（1 To 1000）As string   ’学号
Dim sname（1 To 1000）As String   ’姓名
Dim xinxi（1 To 1000）As String   ’选科信息二进制编号
Dim xknum（1 To 127）As Integer   ’各选科组合人数
Dim n As Integer
Private Sub Command1_Click()
’从数据库中读取n名学生的班级、学号、姓名和选科信息分别存储在数组cla、snum、sname和xinxi中，并输出在列表框List1中，代码略。
End Sub
Private Sub Command2_Click()    ’

Dim t As Integer, i As Integer, count As Integer

For i=1 To n

t= BtoD（xinxi（i））

________

Next i

count=0

For i =127 To 1 Step-1       ’选科组十进制编号的范围

If________The

count=count+1

List2. AddItem change（i）+"   "+Str（xknum（i））

End If

Next i

List2. AddItem "选科组合种类共有："+Str（count）+"种"

End Sub
Function BtoD（s As String）As Integer   ’将选科信息二进制编号转换为十进制编号

Dim x As Integer, I As Integer

x=0

For i=1 To 7

If Mid（s, i, 1）="1" Then

x=_______

End If

Next i

BtoD=x

End Function
Function change（c As Integer）As String

’该函数的功能是将选科十进制编号转换成对应的组合名称，代码略

End Function