mcs/mbas/Test/tests/types/ArrayF.vb

   1 Imports System
   2
   3 Module ArrayF
   4
   5     Sub Main()
   6         Dim arr As Integer(,) = {{1, 2, 3}, {3, 4, 7}}
   7         ReDim arr(1, 1)
   8         If arr(0, 0) = 1 Then
   9             Throw New Exception("#AF1 - ReDim Statement failed")
  10         End If
  11
  12         arr(0, 0) = 1
  13         arr(0, 1) = 2
  14         If arr(0, 0) <> 1 Then
  15             Throw New Exception("#AF2 - ReDim Statement failed")
  16         End If
  17
  18         Try
  19             Erase arr
  20             Console.WriteLine(arr(0, 0))
  21         Catch e As Exception
  22             If e.GetType.ToString <> "System.NullReferenceException" Then
  23                 Throw New Exception("#AF3 - Erase Statement failed")
  24             End If
  25         End Try
  26
  27     End Sub
  28
  29 End Module