mcs/btests/Scope.vb

   1 Module Scope\r
   2     Dim i As Integer = 5\r
   3 \r
   4     Function f1()\r
   5         If i <> 5 Then\r
   6             Throw New System.Exception("#A1, value of i is not correct")\r
   7         End If\r
   8     End Function\r
   9 \r
  10     Function f2()\r
  11         Dim i As Integer = 10\r
  12         If i <> 10 Then\r
  13             Throw New System.Exception("#A2, value of i is not correct")\r
  14         End If\r
  15         If Scope.i <> 5 Then\r
  16             Throw New System.Exception("#A3, value of i is not correct")\r
  17         End If\r
  18     End Function\r
  19 \r
  20     Sub Main()\r
  21         f1()\r
  22         f2()\r
  23     End Sub\r
  24 End Module\r