Imports System
Public Class CompareTwoStrings
Public Shared Sub Main()
Dim s1 As String = "abc"
Dim s2 As String = "abc"
Dim n As Integer = String.Compare(s1, s2) ' 0 : s1 = s2
Console.WriteLine(n)
s1 = "abc"
s2 = "Abc"
n = String.Compare(s1, s2) ' -1 = s1 < s2
Console.WriteLine(n)
s1 = "Abc"
s2 = "abc"
n = String.Compare(s1, s2) ' 1 = s1 > s2
Console.WriteLine(n)
s1 = "abc"
s2 = "Abc"
n = String.Compare(s1, s2, True)
Console.WriteLine(n) ' 0 : s1 = s2
s1 = "a"
s2 = "A"
n = String.Compare(s1, s2) ' -1 : s1 < s2
Console.WriteLine(n)
s1 = "b"
s2 = "a"
n = String.Compare(s1, s2) ' 1 : s1 > s2
Console.WriteLine(n)
End Sub
End Class
' run:
'
' 0
' -1
' 1
' 0
' -1
' 1
'