code108b.txt

VB大全（精华版）源代码

Option Compare Binary

Public Function String_Compare(ByVal String1 As String, _
    ByVal String2 As String) As Integer
  If String1 < String2 Then String_Compare = 1
  If String1 > String2 Then String_Compare = -1
  If String1 = String2 Then String_Compare = 0
End Function

Public Sub Main()
  Debug.Print "Comparing Abc with Abc", String_Compare("Abc", "Abc")
  Debug.Print "Comparing abc with Abc", String_Compare("abc", "Abc")
  Debug.Print "Comparing abcd with abc", String_Compare("abcd", _
    "abc")
  Debug.Print "Comparing Abc with Abcd", String_Compare("Abc", _
    "Abcd")
  Debug.Print "Comparing abcd with abce", String_Compare("abcd", _
    "abce")
  Debug.Print "Comparing Abce with Abcd", String_Compare("Abce", _
    "Abcd")
End Sub