mcs/btests/ArrayD.vb

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