mcs/btests/ArrayB.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 arry as boolean
   8         arry = IsArray(a)
   9         If arry <> true then
  10                 Throw New Exception ("#A1, Not an Array")
  11         End If
  12
  13
  14         ReDim Preserve a(10)
  15         Console.WriteLine(a(7))
  16 \r
  17     End Sub\r
  18 End Module\r