学进去

学校把各同学选考组合放在一个数据库中，小明编写了一个VB程序，用于查询每个同学的选考组合，程序界面如图所示，在文本框Text1中输入学号，单击“开始查询”按钮（Command1），就开始查找该学号的信息，如果找到对应的信息，就显示所属学生的姓名和选考组合；如果没有找到，则显示“找不到”。学校共有n名学生，数组a、b分别保存了本次考试所有学生的学号和姓名信息。数据库数据按学号从小到大排列，第i个学生的学号保存在a(i)，对应的姓名保存在b(i)，c(i)保存该学生的选考组合。
             
程序如下，在程序划线处填入适当的代码，把程序补充完整。
Dim n As Integer, a(1000)As String,
Dim b(1000)As String, c(1000)As String
Private Sub Command1_Click()
Dim x As String, pos As Integer
Dim conn As New ADODB. Connection,rs As New
ADODB. Recordset
conn. ConnectionString="provider =Microsoft. AC

A． OLEDB.12.0; data source="&.App. Path&"\students.accdb" conn. Open Set rs. ActiveConnection = conn rs. Open"学生信息" n=0    '考生数初始化 Do While Not rs. EOF n =n+1 a(n)=rs. Fields(0) b(n)=rs. Fields(1) c(n)=rs. Fields(2) ①______ Loop x = Text1.Text If pos >0 Then ②______ Text2.Text=b(pos) Text3.Text =c(pos) Else Text2.Text="找不到" End If End Sub Function Search(Key As String)As Integer Dim i As Integer, j As Integer, m As Integer i=1: j=n: Search =0 Do While i <=j m=Fix((i+j)/2) If Key =a(m)Then ③______ Exit Function Else lf a(m)> Key Then j=m－1 Else i=m+1 End If Loop End Function