mcs/mbas/Test/errors/ArrayB.vb

   1 REM LineNo: 12
   2 REM ExpectedError: BC30451
   3 REM ErrorMessage: Name 'IsArray' is not declared.
   4
   5 Imports System
   6
   7 Module VariableC
   8     Dim a() As Integer ' = {1, 2, 3, 4, 5}
   9
  10     Sub Main()
  11         dim arry as boolean
  12         arry = IsArray(a)
  13         If arry <> true then
  14                 Throw New Exception ("#A1, Not an Array")
  15         End If
  16
  17
  18         ReDim Preserve a(10)
  19         Console.WriteLine(a(7))
  20
  21     End Sub
  22 End Module