mcs/btests/ArrayD.vb

   1 Imports System\r
   2
   3 Module VariableC\r
   4     Dim a() As Integer = {1, 2, 3, 4, 5}
   5 \r
   6     Sub Main()
   7         dim c as Integer
   8
   9         c = UBound(a, 1)
  10         c = LBound(a, 1)
  11         'c = UBound(a)
  12         'c = LBound(a)
  13
  14     End Sub\r
  15 End Module\r