binarysearcharraylist.aspx

asp.net技术内幕的书配源码

<%
Dim colArrayList As ArrayList
Dim objranNumber As Random
Dim intCounter As Integer
Dim intItemIndex As Integer

colArrayList = New ArrayList
objRanNumber = New Random
For intCounter = 1 to 1000
  colArrayList.Add( objRanNumber.Next( 1000 ) )
Next

colArrayList.Sort()

intItemIndex = colArrayList.BinarySearch( 53 )
If intItemIndex > 0 Then
  Response.Write( "Found 53!" )
Else
  Response.Write( "Couldn't Find 53!" )
End If
%>