typevalrefstringa.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'Author: Ritvik Mayank <[e-mail]>
'Copyright (C) 2005 Novell, Inc (http://www.novell.com)

Imports System
Module TypeValRefString
    Function Main() As Integer
        Dim str1, str2 As String
        str1 = "String 1"
        str2 = str1
        If String.Compare(str2, "String 1") <> 0 Then
            Throw New Exception("str2 Should be String1")
        End If
        str2 = "String 2"
        str1 = Nothing
        If (String.Compare(str1, Nothing) <> 0) Or (String.Compare(str1, Nothing) <> 0) Then
            Throw New Exception("Str1 should be nothing and Str2 should be String 2 but got Str1 = " & Str1 & " Str2 = " & str2)
        End If
    End Function
End Module