code226b.txt

VB大全（精华版）源代码

Public Function Seq_One_Find(ByRef SearchArray As Variant, ByVal _
    SearchFor As Variant) As Integer
  Dim I As Integer, Temp As String

  Temp = TypeName(SearchArray)
  If Temp = "String()" Or Temp = "Integer()" Or Temp = "Long()" Or _
      Temp = "Date()" Then
    For I = LBound(SearchArray) To UBound(SearchArray)
      If SearchArray(I) = SearchFor Then
        Seq_One_Find = I
        Exit Function
      End If
    Next
    Seq_One_Find = -1
  Else
    For I = LBound(SearchArray) To UBound(SearchArray)
      If Abs(SearchArray(I) - SearchFor) < 0.0001 Then
        Seq_One_Find = I
        Exit Function
      End If
    Next
    Seq_One_Find = -1
  End If
End Function

Public Sub Main()
  Dim Int_Values(4) As Integer
  Dim Float_Values(4) As Single
  Dim I As Integer, Match As Integer
  Const Int_Search = 3
  Const Float_Search = 4.5

  Randomize
  For I = 0 To 4
    Int_Values(I) = I + 1
    Float_Values(I) = I + 1.5
  Next
  Match = Seq_One_Find(Int_Values, Int_Search)
  If Match > -1 Then
    Debug.Print "Value "; Int_Search; " found at: "; Match
  Else
    Debug.Print "Value "; Int_Search; " Not Found."
  End If
  Match = Seq_One_Find(Float_Values, Float_Search)
  If Match > -1 Then
    Debug.Print "Value "; Float_Search; " found at: "; Match
  Else
    Debug.Print "Value "; Float_Search; " Not Found."
  End If
End Sub