mcs/btests/ArrayE.vb

   1 Imports System
   2
   3 Module ArrayE
   4
   5     Dim a As Integer() = {1, 2, 3, 4}
   6
   7     Public Property myprop() As Integer()
   8         Get
   9             Return a
  10         End Get
  11         Set(ByVal Value As Integer())
  12             a = Value
  13         End Set
  14     End Property
  15
  16     Sub main()
  17
  18         ReDim Preserve myprop(6)
  19         Dim arr As Integer() = {1, 2, 3, 4, 10, 12, 14}
  20         myprop(4) = 10
  21         myprop(5) = 12
  22         myprop(6) = 14
  23
  24         For i As Integer = 0 to myprop.Length - 1
  25             Console.WriteLine(myprop(i))
  26             If myprop(i) <> arr(i) Then
  27                 Throw New Exception("#AE1 - Array Statement failed")
  28             End If
  29         Next
  30
  31     End Sub
  32
  33 End Module