mcs/btests/AssignmentStatements1.vb

   1 ' ErrorMessage: System.ArrayTypeMismatchException: Attempted to store \r
   2 ' an element of the incorrect type into the array.\r
   3 \r
   4 Imports System\r
   5 \r
   6 Module AssignmentStatements1\r
   7 \r
   8     Sub main()\r
   9 \r
  10         Dim sa(10) As String\r
  11         Dim oa As Object() = sa\r
  12         oa(0) = Nothing\r
  13         oa(1) = "Hello "\r
  14         oa(2) = "World"\r
  15         oa(3) = New Date(2004, 8, 17)\r
  16 \r
  17     End Sub\r
  18 \r
  19 \r
  20 End Module\r