mcs/btests/ConversionsA.vb

   1 \r
   2 Imports System\r
   3 Imports Microsoft.VisualBasic\r
   4 \r
   5 Module ConversionsA\r
   6 \r
   7     Sub f1(ByRef a As Object)\r
   8     End Sub\r
   9 \r
  10     Sub f2(ByVal array() As Object, ByVal index As Integer, ByVal count As Integer, ByVal value As Object)\r
  11         Dim i As Integer\r
  12         For i = index To (index + count) - 1\r
  13             array(i) = value\r
  14         Next i\r
  15     End Sub\r
  16 \r
  17 \r
  18     Sub Main()\r
  19         On Error GoTo ErrorHandler\r
  20 \r
  21         Dim a(10) As Object\r
  22         Dim b() As Object = New String(10) {}\r
  23         f1(a(0))\r
  24         f1(b(1)) ' ArrayTypeMismatchException\r
  25 \r
  26         Dim str(100) As String\r
  27         f2(str, 0, 101, "Undefined")\r
  28         f2(str, 0, 10, Nothing)\r
  29         f2(str, 91, 10, 0) ' ArrayTypeMismatchException\r
  30         Exit Sub\r
  31 \r
  32 ErrorHandler:\r
  33         If Err.Number <> 5 Then   ' System.ArrayTypeMismatchException\r
  34             Throw New Exception("#CA1 - Conversion Statement failed")\r
  35         End If\r
  36         Resume Next\r
  37 \r
  38     End Sub\r
  39 \r
  40 End Module