mcs/mbas/Test/tests/ArrayA.vb

   1 Imports System
   2
   3 Module VariableC
   4     Dim a() As Integer = {1, 2, 3, 4, 5}
   5     Dim b(3) As Integer
   6     Dim c(2), d(4) As Long
   7     Dim e as Integer() = {1, 2, 3}
   8     dim f(2,3) as Integer
   9     Dim g as Integer(,) = { {1,1}, {2,2}, {3,3} }
  10     Dim h() as Integer
  11     Dim i as integer(,)
  12     Dim j as integer()
  13
  14     Sub Main()
  15
  16         If a(2) <> 3 Then
  17             Throw New Exception("#A1, value mismatch")
  18         End If
  19
  20         b(0) = 0
  21         b(1) = 5
  22         b(2) = 10
  23         If b(1) <> 5 Then
  24             Throw New Exception("#A2, value mismatch")
  25         End If
  26
  27         If e(1) <> 2 Then
  28             Throw New Exception("#A3, value mismatch")
  29         End If
  30
  31         If g(2,1) <> 3 Then
  32             Throw New Exception("#A4, value mismatch")
  33         End If
  34
  35
  36         'Console.WriteLine(e(1))
  37         'Console.WriteLine(g(2,1))
  38
  39         h = new Integer(){0, 1, 2}
  40         i = new Integer(2,1){ {1,1}, {2,2}, {3,3} }
  41
  42         j = new Integer(2) {}
  43     End Sub
  44 End Module