Module Tester
Sub Main()
Dim string1 As String = "hello"
Dim string2 As String = "good bye"
Dim string3 As String = "Happy Birthday"
Dim string4 As String = "happy birthday"
Dim output As String
Dim quotes As Char = ChrW(34)
If (string1.Equals("hello")) Then
Console.WriteLine("string1 equals hello")
Else
Console.WriteLine("not equal ")
End If
' test for equality with =
If string1 = "hello" Then
Console.WriteLine("string1 equals " & quotes & "hello" & quotes )
Else
Console.WriteLine("string1 does not equal " & quotes & "hello" & quotes)
End If
If (String.Equals(string3, string4)) Then
Console.WriteLine("string3 equals string4")
Else
Console.WriteLine("string3 does not equal string4")
End If
' test CompareTo
Console.WriteLine("string1.CompareTo(string2) is " & _
string1.CompareTo(string2) & vbCrLf & _
"string2.CompareTo(string1) is " & _
string2.CompareTo(string1) & vbCrLf & _
"string1.CompareTo(string1) is " & _
string1.CompareTo(string1) & vbCrLf & _
"string3.CompareTo(string4) is " & _
string3.CompareTo(string4) & vbCrLf & _
"string4.CompareTo(string3) is " & _
string4.CompareTo(string3))
End Sub ' Main
End Module
string1 equals hello
string1 equals "hello
string3 does not equal string4
string1.CompareTo(string2) is 1
string2.CompareTo(string1) is -1
string1.CompareTo(string1) is 0
string3.CompareTo(string4) is 1
string4.CompareTo(string3) is -1