Imports System
Public Class CompareTwoStringsLexicographically_VB_NET
Public Shared Sub Main(ByVal args As String())
Console.WriteLine(Compare("aa", "ab"))
Console.WriteLine(Compare("a", "b"))
Console.WriteLine(Compare("a", "c"))
Console.WriteLine(String.Compare("aaa", "aca"))
Console.WriteLine(Compare("aa", "aa"))
Console.WriteLine(Compare("ba", "aa"))
Console.WriteLine(Compare("ca", "aa"))
Console.WriteLine(Compare("ab", "aa"))
End Sub
Public Shared Function Compare(ByVal a As String, ByVal b As String) As Integer
Return String.Compare(a, b)
End Function
End Class
' run:
'
' -1
' -1
' -1
' -1
' 0
' 1
' 1
' 1
'