qualifiednames.vb

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

Imports System
Namespace N1
    Namespace N2
        Class C1
            Public Shared a As Integer
            Public Shared b As Integer
            Public Shared Function F() As Integer
                Try
                    N1.N2.C1.a = 20
                Catch e As Exception
                    Console.WriteLine("error resolving a fully qualified name")
                End Try
                b = 30
                Return 47
            End Function
        End Class
    End Namespace
End Namespace
Module QualifiedNames
    Function Main() As Integer
        If N1.N2.C1.F() <> 47 Then
            System.Console.WriteLine("#A1:QualifiedNames:Failed-Error accessing function using fully qualified names") : Return 1
        End If
        If N1.N2.C1.a <> 20 Then
            System.Console.WriteLine("#A2:QualifiedNames:Failed-Error accessing variables using fully qualified names") : Return 1
        End If
        If N1.N2.C1.b <> 30 Then
            System.Console.WriteLine("#A3:QualifiedNames:Failed-Error accessing variables using fully qualified names") : Return 1
        End If
    End Function
End Module