mcs/btests/LocalVariablesA.vb

   1 Imports System\r
   2 \r
   3 Module LocalVariablesA\r
   4 \r
   5     Function swap(ByVal a As Integer, ByVal b As Integer) As Integer\r
   6         Dim c As Integer\r
   7         c = a\r
   8         a = b\r
   9         b = c\r
  10         Return 0\r
  11     End Function\r
  12 \r
  13     ' Local variable having same name as Sub containing it\r
  14     Sub f2()\r
  15         Dim f2 As Integer = 1\r
  16         f2 = f2 + 1\r
  17         Console.WriteLine(f2)\r
  18     End Sub\r
  19 \r
  20     Sub main()\r
  21         Dim a, b As Integer\r
  22         a = 10 : b = 32\r
  23         Console.WriteLine("a: {0}  b: {1}", a, b)\r
  24         swap(a, b)\r
  25         Console.WriteLine("a: {0}  b: {1}", a, b)\r
  26         f2()\r
  27     End Sub\r
  28 \r
  29 End Module