mcs/btests/Array2.vb

   1 ' System.InvalidCastException: Cast from string to integer not valid\r
   2 \r
   3 Imports System\r
   4
   5 Module Array2
   6
   7     Sub Main()
   8         Dim arr As Integer(,) = {{1, "Hello"}, {3, 4}}
   9         If arr(0, 0) <> 1 Then
  10             Throw New Exception("#A1")\r
  11         End If
  12     End Sub
  13
  14 End Module
  15