程序如下,在程序划线处填入适当的代码,把程序补充完整。
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
① ② ③