5 Public Shared a As Integer
\r
6 Public Shared b As Integer
\r
7 Public Shared Function F() As Integer
\r
10 Catch e As Exception
\r
11 Console.WriteLine("error resolving a fully qualified name")
\r
19 Module QualifiedNames
\r
21 If N1.N2.C1.F()<>47 Then
\r
22 Throw New Exception("#A1:QualifiedNames:Failed-Error accessing function using fully qualified names")
\r
24 If N1.N2.C1.a<>20 Then
\r
25 Throw New Exception("#A2:QualifiedNames:Failed-Error accessing variables using fully qualified names")
\r
27 If N1.N2.C1.b<>30 Then
\r
28 Throw New Exception("#A3:QualifiedNames:Failed-Error accessing variables using fully qualified names")
\r