mcs/btests/ArrayG.vb

   1 Imports System\r
   2
   3 Module ArrayG\r
   4
   5     Sub Main()
   6         Dim arr As Integer(,) = {{1, 2, 3}, {3, 4, 7}}
   7         ReDim arr(-1, -1)
   8         If arr.Length <> 0 Then
   9             Throw New Exception("#AG1 - ReDim Statement failed")\r
  10         End If
  11
  12         If arr Is Nothing Then
  13             Throw New Exception("#AG2 - ReDim Statement failed")\r
  14         End If
  15
  16         Erase arr
  17         If Not arr Is Nothing Then
  18             Throw New Exception("#AG3 - Erase Statement failed")\r
  19         End If
  20     End Sub
  21
  22 End Module