Dim a (1 To 4020 ) As String

Dim b (1 To 2000 ) As String

Private Sub Form_Load( )

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As string

constr=“Provider=Microsoft.ace.OLEDB.12.0;”

constr=constr &“Data Source=” & App.Path+“\data\KaoSheng.accdb”

conn.ConnectionString=constr

conn.open()

Dim sql As String

‘将参加2010年下半年考试的考生的身份证号码按升序存放在a数组中

sql=“select * from kaoshengInfo where year=‘2010’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 a(i)=rs(“sfzh”)

 List1.additem(a(i))

 rs.MoveNext

Loop

‘将参加2011年下半年考试的考生的身份证号码按升序存放在b数组中

sql=“select * from kaoshengInfo where year=‘2011’order by sfzh asc”

rs.Open sql，conn

i=0

Do While Not rs.EOF

 i=i+1

 b(i)=rs(“sfzh”)

 List2.additem(b(i))

 rs.MoveNext

Loop

rs.Close

End Sub

Private Sub Command1_Click ()

Dim bot As Integer, top As Integer, m As Integer

Dim i As Integer, ans As Integer

ans=0

  For i=1 To 2000

    bot=1

   Do While  bot <=top

     m=Fix ( ( bot+top ) / 2 )

     If a ( m )=b ( i ) Then

      List3.AddItem  a ( m )

      Exit Do

     ElseIf  Then

      top=m-1

     Else

      bot=m+1

     End If

   Loop

 Next i

 List3.AddItem“总计”+str(ans)+“人次”

End Sub