mcs/mbas/Test/tests/ArrayC.vb

   1 Imports System
   2
   3 Module VariableC
   4     Dim a() As Integer = {1, 2, 3, 4, 5}
   5
   6     Sub Main()
   7         ReDim Preserve a(10)
   8
   9         a(7) = 8
  10         If a(7) <> 8 then
  11                 Throw New Exception ("#A1, Unexpected result")
  12         End If
  13
  14         If a(2) <> 3 then
  15                 Throw New Exception ("#A2, Unexpected result - Preserve keyword not working")
  16         End If
  17     End Sub
  18 End Module